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