Test

##

#!/usr/bin/perl -wT

use strict;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my $fh = upload('uploaded_file');

my $filename = param('uploaded_file');

open OUTFILE, "> /tmp/$filename" or die "/tmp/$filename - $!\n";

print header('text/html'),
      start_html(),
      p("filename : $filename (saved in /tmp)"),
      p("text_field : " . param('text_field'));

while (<$fh>)
{
   print OUTFILE $_;
}

print end_html();