or download this
use CGI;
my $q=new CGI;
my $file=$q->param('foo'); #foo is the name of the file field in the f
+orm
print "You uploaded $file:"; #$file is the name of the file
print <$file>; #and it can also be used as a file handle to get the co
+ntents of the file