perl -e "print unpack('p', pack('J', 1))"