Perl syntax upload file:

$dir = 'D:\\newjob\\';
$upfile = param('upfile');
$upfile =~ s/.*[\/\\](.*)/$1/; # strip the remote path and keep the filename

$upload_filehandle = upload("upfile");

open UPLOADFILE, ">$dir/$upfile";
binmode UPLOADFILE;
while ( <$upload_filehandle> )
{
print UPLOADFILE;
}

close UPLOADFILE;