my $filename = "test.ucs2le";
open my $fh, ">:raw:encoding(ucs-2le):crlf:utf8", $filename
             or die "Cannot open $filename for writing: $!";
print $fh "\x{feff}\x{8765}\n\x{8765}\n";
close $fh;