C:\test>\perl32\bin\perl -e"print length(pack('j', -1))*8;"
32
C:\test>perl -e"print length(pack('j', -1))*8;"
64