$ perl -e" binmode STDOUT; $|=1; print qq[\x0d\x0a]; " | od -tx1
0000000 0d 0a
0000002

$ 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<>; "
0a

$ perl -e " die $]
5.014001 at -e line 1.