if(-d $session_dir){ my $query = new CGI; my $file_name = $query->param("filename"); $file_name = (split(/[\/\\]/,$file_name))[-1]; my $upload_file_path = $upload_dir.$file_name; my $upload_filehandle = $query->upload("filename"); print 'Moving File to Upload Directory -> '; my ($tmpfh2, $buffer); if ( open($tmpfh2, '>', $upload_file_path ) ) { flock($tmpfh2, LOCK_EX); while (my $bytesread = read($upload_filehandle, $buffer, 1024)) { print $tmpfh2 $buffer; } if( close($upload_filehandle) and close($tmpfh2) { print $query->b({-style=>'color:green'}, "Success"), $query->br(); } else { print $query->b({-style=>'color:red'}, "Failure"),$query->br(); } } else { print $query->b({-style=>'color:red'}, "Failure"),$query->br(); } }