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

##</code><code>##

 ff fe 65 87 0d 0a 00 65 87 0d 0a 00

##</code><code>##

 ff fe 65 87 0d 00 0a 00 65 87 0d 00 0a 00

##</code><code>##

my $filename = "test.ucs2le";
open my $fh, ">:encoding(ucs-2le)", $filename or die;
my @layers = PerlIO::get_layers($fh); print "@layers\n";

##</code><code>##

unix crlf encoding(UCS-2LE) utf8

##</code><code>##

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;

##</code><code>##

unix encoding(UCS-2LE) utf8 crlf utf8