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