use strict;
use warnings;
sub dump_layers(*) {
my @layers = PerlIO::get_layers($_[0]);
print STDERR "@layers\n";
}
my $file = 'temp';
{
open(my $fh, '>:raw:encoding(ucs-2le):crlf:utf8', $file) or die;
dump_layers($fh);
}
{
open(my $fh, '<:raw:encoding(ucs-2le):crlf:utf8', $file) or die;
dump_layers($fh);
}
unlink $file;
binmode STDOUT, ':raw:encoding(ucs-2le):crlf:utf8' or die;
dump_layers STDOUT;
binmode STDIN, ':raw:encoding(ucs-2le):crlf:utf8' or die;
dump_layers STDIN;
####
unix encoding(UCS-2LE) utf8 crlf utf8
unix encoding(UCS-2LE) utf8 crlf utf8
unix crlf encoding(UCS-2LE) utf8
unix crlf encoding(UCS-2LE) utf8
##
##
binmode $fh, ':raw:pop:encoding(ucs-2le):crlf:utf8';
# ^^^