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

##</code><code>##

$ 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

##</code><code>##

$ perl -v
This is perl 5, version 14, subversion 2 (v5.14.2) built for i686-linux-gnu-thread-multi-64int