the script for 64bit processor detect

perl -e "print unpack q(H*), pack q(Q), 2 ** 63"

if you get message: Invalid type 'Q' in pack

then you are using 32 bit perl, else if it return 16 characters, it's 64 bit.