Previously mentioned

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

is simpler than equivalent

open(my $fh, '>:bytes', $qfn) or die;
print $fh "\xEF\xBB\xBF";
binmode($fh, ':utf8');
print $fh $text;
[download]