use Data::Dumper;
binmode STDOUT, ":utf8";
use PerlIO;
print Dumper [ PerlIO::get_layers \*STDOUT, output => 1 ];
__END__
$VAR1 = [
          'unix',
          'perlio',
          'utf8'
        ];