##

my $file = $q->param('file');
my $fh = $q->upload($file);
my $buffer;

open(OUTPUT, $output_filename) || warn "Can't create local file: $!";

# just in case you're not Unix
binmode $fh;
binmode OUTPUT;

while ( read($fh, $buffer, 16384)) {
	print OUTPUT $buffer;
}