open(my $fh, '>:encoding(UTF-8)', $qfn)
    or die("Can't create output file \"$qfn\": $!\n");

print $fh $text;