$ cd |od -tacx1
0000000   D   :   \   p   o   r   t   a   b   l   e   a   p   p   s  cr
          D   :   \   p   o   r   t   a   b   l   e   a   p   p   s  \r
        44 3a 5c 70 6f 72 74 61 62 6c 65 61 70 70 73 0d
0000020  nl
         \n
        0a
0000021

##</code><code>##

use Cwd;
print cwd(),"\n";