my $C = new CGI;
my $filehandle = $C->upload('file');
open OUTFILE, ">/tmp/tmpfile" or die "Can't create: $!";
while (<$filehandle>) {print OUTFILE;}
close OUTFILE or die "Can't close: $!";