perl -Minteger -e'my $foo = 2**63-1 ; $foo = 2*$foo;print $foo,$/; { no integer; print 0|$foo,$/;}'
-2
18446744073709551614