open(FH, '<', '/dev/null');
binmode(FH);
print(PerlIO::get_layers(FH));          # --> unix perlio