Select Code to Download

print join ' ', 1, PerlIO::get_layers($fh), "\n";
binmode($fh, ':raw:perlio') or warn "UHOH $! \n$^E \n$@\n ";
...
#~ binmode($fh, ':raw:crlf:perlio') or warn "UHOH $! \n$^E \n$@\n ";
binmode($fh, ':pop:pop:win32') or warn "UHOH $! \n$^E \n$@\n ";
print join ' ', 6, PerlIO::get_layers($fh), "\n";

1 unix crlf
2 unix crlf perlio
...
6 unix crlf perlio
6 unix crlf
6 win32