Or upload a new file

##

##

#!/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
\n";

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

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

##

##

params are emailupload submit-button
fh contains and is a SCALAR
fh is not defined!

##

##

#!/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>);