$ perl -e" binmode STDOUT; $|=1; print qq[\x0d\x0a]; " | perl -e" use open qw/ IN :crlf OUT :raw /; print join q/ /, unpack q/H*/, scalar<>; "
0d0a