my $x= 1+~0; $x *= 2 while $x != $x+1;
print "You can safely use integer values between ",
    -$x/2, " and ", $x/2, $/;
#   -$x, " and ", $x-1, $/;