Select Code to Download

my $file1 = $cgi->param('file1');
...
read($file1, $buf, ...);   # $file1 is a file handle!
$line = <$file1>;          # another example