{ # 6
    open my $f, '<:pop:pop:unix:encoding(UTF-16LE):crlf', 'test';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}
{ # 7
    open my $f, '<', 'test';
    binmode $f, ':pop:pop:unix:encoding(UTF-16LE):crlf';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}

__END__

unix encoding(UTF-16LE) utf8 crlf utf8
31 32 33 0a
unix encoding(UTF-16LE) utf8 crlf utf8
Use of uninitialized value in unpack at crlf.pl line 49.

refcnt_dec: fd 0: 0 <= 0