#!/usr/bin/perl

use CGI qw(:standard);

$filename = param("upload");
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = param("upload");

print (header());
print (start_html( -title => 'Upload' ));

if (!$filename) {
   print ("No file specified.<br>\n");
}
else {
   $filename = lc($filename);
   open UPLOADFILE, ">$filename";
   binmode(UPLOADFILE);
   while ( <$upload_filehandle> ){ print UPLOADFILE; }
   close UPLOADFILE;
   print ("<b>$filename</b> upload successful!<br>\n");
}
print ("</BODY>\n</HTML>");