#!perl -wT

use strict;
use CGI;

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