print join( ':', PerlIO::get_layers(STDIN)), "\n";