print "layers  ", PerlIO::get_layers($fh), "\n";

##</code><code>##

open my $fh, '>:raw:encoding(....