open my $fh, ">:raw:encoding(ucs-2le):crlf:utf8", $qfn