#!/usr/local/bin/perl

use CGI;
$q = new CGI;

$file = $q->param('file');

#####

 $up = $q->upload("$file");
     while (<$up>) {
	   print;
     }  

exit: