my $cgi = new CGI;
my $info = $cgi->uploadInfo( $filename );
print "uploadInfo:<br>";
map {print "  $_: " . $info->{$_} . "<br>\n" } sort keys %$info;