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