#!/usr/bin/perl

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $query = new CGI();

print "Content-type: text/html\n\n";

my @params = $query->param;

print "params are @params<br>\n";

my $fh = $query->upload('emailupload');
print "fh contains $fh and is a ".ref(\$fh)."<br>\n";
print "fh is not defined!" if(!defined($fh));

print "$_\n" while(<$fh>);