@echo off
set PERLIO=
perl -E "print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unixcrlf 0d0a
perl -E "binmode STDOUT; print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unixcrlf 0a
set PERLIO=:raw
perl -E "print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unix 0d0a
perl -E "binmode STDOUT; print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unix 0d0a
perl -E "binmode STDOUT, ':crlf'; print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unixcrlf 0d0d0a
set PERLIO=:raw:crlf:pop
perl -E "print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unix 0a
perl -E "binmode STDOUT; print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unix 0a
perl -E "binmode STDOUT, ':crlf'; print STDERR PerlIO::get_layers(STDOUT),qq(\n); print qq(\n)" >> tmp
REM unixcrlf 0d0a
set PERLIO=
perl -Mopen=IO,raw -E "say unpack 'H*', $_ while <ARGV>" tmp
del tmp