#!/usr/bin/perl -T

use strict;
use HTML::Entities;
use CGI qw(:standard);

print header,
   start_multipart_form,
   filefield('file'),
   submit('go'),
   end_form,
;

if (param('go')) {
   my $fh = upload('file');
   print hr, pre( map { encode_entities $_ } <$fh>);
}