use CGI qw/:all/;

my $form  = new CGI;
print $form->header;
my $filehandle = $form->upload('UPLOADFILE');
print "<br>Contents of file:<br><pre>";
while (<$filehandle>){ print ;}
print "</pre></body></html>";