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

....

}

close FILE;