Help for this page
print "layers ", PerlIO::get_layers($fh), "\n";
open my $fh, '>:raw:encoding(....