perl -e "print (pack('c',0xDC) eq pack('C',0xDC))"