$ perl -e 'print "\r"' | od -t xC -a
0000000    0d                                                            
          cr