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