while (<$HTML>)

##</code><code>##

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

....

}

close FILE;

##</code><code>##

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

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