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