D:\>perl -MMath::BigInt -wle "$x = Math::BigInt->new(~0); $x++; while(\"$x\" == ~0){$x++}; print $x;" 18446744073709553665