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