Error in file upload using perl

Vote count:

0

I am facing read the file error while i am uploading a file using perl like this

And There is no problem in accesing $CgiRef->{'$filename'} or any refernce variables.

           fileparse_set_fstype('MSWin32');
            my ($OriginalName,$OriginalPath) = fileparse( $CgiRef->{'filename'} );
            my $LocalName = $_ . $OriginalName;

            open(FILE, ">$config->{'BASE_PATH'}/files/$LocalName")
               or die "Could not open file:$!";
            my $Req = new CGI;
            while (read($Req->param('filename'), my $Buffer, 1024))
            {
               print FILE $Buffer;
            }
        close(FILE)

please let me know where is the actual problem while uploading.

asked 2 mins ago

venkata kishore

1

Error in file upload using perl