$filename = $query->param("Resume_File");
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload("Resume_File");
open UPLOADFILE, ">$upload_dir/$filename";

#while ( <$upload_filehandle> )
while ( <$filename> )
{
print UPLOADFILE $_;
}

close UPLOADFILE;