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