...
open HTMLFILE,'<',$filename or die "Cant open $filename for read: $!\n";
$p->parse_file(*HTMLFILE) or die "Could not parse FileHandle\n";
close HTMLFILE;
....