#!/usr/bin/perl

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

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

my $fh = $query->upload('emailupload');

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