Well well. Never too late is it?

I tried the same code, and encountered the same problem. It was solved by adding the cgi object to access the upload-member.

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

Which in my case gives:

uploadInfo: 
  Content-Disposition: form-data; name="file";filename="C:\cool\file.t
+xt"
  Content-Type: text/plain
[download]

Elegant use of map in the original snippet, though.