my @l = PerlIO::get_layers($fh, details => 1);