perl -Mopen=IO,:encoding(UTF-8) -le"print join q! !, $$_[0], PerlIO::get_layers($$_[0], output => $$_[1]) for [*STDOUT,1], [*STDIN,0], [*STDERR,1] "
*main::STDOUT unix crlf
*main::STDIN unix crlf
*main::STDERR unix crlf