#!/usr/bin/perl
use CGI;
my $query= new CGI;
print $query->header;
my $file=$query->param('uploaded_file');
while(<$file>) {
	print $_; # the contents of the upload file
}