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

##</code><code>##

uploadInfo: 
  Content-Disposition: form-data; name="file";filename="C:\cool\file.txt"
  Content-Type: text/plain