use CGI;
my $cgi = new CGI;
my $fh = $cgi->upload('uploadedfile');
@st = stat($fh);
print "Size: $st[7]";