$ perl -e "print int ((1<<63)-512)" 9223372036854775296 $ perl -e "print int ((2**63)-512)" 9223372036854775808