#!/usr/bin/perl -w print "Content-type: text/html\n\n"; use CGI qw(fatalsToBrowser); use CGI qw(:standard); if (!param) { print < UPLOAD A FILE FROM COMPUTER
File Name
EOL } else { ### BROWSER UPLOAD print < RESULTS EOL use CGI qw(upload); $query = new CGI; $maxsize = ($CGI::POST_MAX = 1024*1000*6); $upload_dir = "upload"; $filename = $query->param("upfile"); $filename =~ s/.*[\/\\](.*)/$1/ || ""; $upload_filehandle = $query->upload("upfile"); open UPLOADFILE, ">$upload_dir/$filename" or print "

I cannot open upload $filename: $!
" and exit; while ( <$upload_filehandle> ) { print UPLOADFILE; }; close UPLOADFILE or print "cant close UPLOAD - $!
" and exit; if (-z $filename) { print "

ERROR: File DID NOT UPLOAD" and exit; } else { print "

$filename has been uploaded. Thanks.
" } print ""; }