use CGI; my $q = new CGI;
   my $fh = $q->upload( "file" );
   my $filesize = -s $fh;
   # die $filesize; # returns undef!