C:\>perl -e"print qq,\cD,"
♦
C:\>perl -e"print qq,\cD," |hexdump
00000000: 04                      -                         | |
00000001;

C:\>perl -e"print qq,\cD," |od -tacx1
0000000 eot
        004
        04
0000001
C:\>