@echo off
set PERLIO=
perl -E "print qq(\n)" >> tmp
perl -E "binmode STDOUT; print qq(\n)" >> tmp
set PERLIO=:raw
perl -E "print qq(\n)" >> tmp
perl -E "binmode STDOUT; print qq(\n)" >> tmp
set PERLIO=:raw:crlf:pop
perl -E "print qq(\n)" >> tmp
perl -E "binmode STDOUT; print qq(\n)" >> tmp
perl -E "binmode STDOUT, ':crlf'; print qq(\n)" >> tmp
set PERLIO=
perl -Mopen=IO,raw -E "say unpack 'H*', $_ while <ARGV>" tmp
del tmp