open(my $fh, '>:utf8', $qfn) or die;
print $fh "\x{FEFF}";
print $fh $text;