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;