Select Code to Download

<form action="/cgi-bin/upload.cgi" method="POST" enctype="multipart/fo
+rm-data">
File to upload:
<input type="file" name="file">
</form>

my $file = $q->param('file');
my $fh = $q->upload($file);
my $buffer;
...
while ( read($fh, $buffer, 16384)) {
    print OUTPUT $buffer;
}