open(my $fh, '<', $html) or die "cannot open file $html: $!";