open my $out,">:utf8",$filename or die $!;
# print head start
print $out q(<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">);
# print rest of head and document