warn PerlIO::get_layers($handle{$file});