use HTML::Entities qw( encode_entities );
open(my $fh, '>:encoding(UTF-8)', 'file.html') or die;
print $fh qq{<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">\n};
print $fh qq{<title>Test</title>\n};
print $fh encode_entities($_);   # Escapes &<>'"