open(my $fh, "<:utf8", "foo.html") || die;