print PerlIO::get_layers("<:raw");
# unixperlio