Select Code to Download

while (<$HTML>)

open FILE, "<$HTML" or die "Oops opening $HTML, Perl says $!\n";
while (FILE) {
...
}

close FILE;

$path = "path/to/my/files";
$HTML =$q->param('file');

open FILE "<$path/$HTML" ....