#!/usr/local/bin/perl -w

use CGI;
use strict;

my $q = new CGI;

print $q->header;
print $q->start_html("Example");
my $file = $q->param('file');
my $up = $q->upload("$file");
     while (<$up>) {
       print;
     }  

exit;