print "@{[PerlIO::get_layers(STDOUT)]}\n";