#!/usr/bin/env perl
use strict;
use warnings;

use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;

print header;

warningsToBrowser(1);

print start_html;
if (!param){
  print start_multipart_form;
  print filefield(-name=>'uploaded', -size=>75);
  print br;
  print submit;
  print end_form;
} else {
  print "Here's the contents of that file<p>\n";
  my $uploaded=param('uploaded');
  while (<$uploaded>){
    print;
    print br;
  }
}
	

print end_html;