print join(" ", PerlIO::get_layers($session)), "\n";