binmode STDOUT, ":unix"; 
binmode STDOUT, ":raw";

##</code><code>##

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