use strict;
use warnings;
use PerlIO;

print join(', ', PerlIO::get_layers(*STDOUT)) . "\n";
binmode(*STDOUT, ":pop");
print join(', ', PerlIO::get_layers(*STDOUT)) . "\n";
__END__
unix, perlio
unix