# OK
open $fout, ">:raw:encoding(utf16le):crlf", $file or die;
# etc.