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