#!perl 
use strict;
use CGI qw( :standard);
use CGI::Carp qw(fatalsToBrowser);

my $q = CGI->new;
print $q->header(),$q->start_html();
for my $p ($q->param){
  print "$p =  ".$q->param($p)."<br/>"
}

print "<pre>";
my $upload_filehandle = $q->upload("photo");
while ( <$upload_filehandle> ) {
 print $_;
}
print "</pre>";

print $q->end_html;