while ($HTMLLine=<HTMLFNH>) {
        chomp $HTMLLine;
        print "$HTMLLine\n";
    }