$, = ' ';
$\ = "\n";

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