Select Code to Download

# solution 1
use Config;
...
else {
  # max_integer is probably 2**31-1
}

# solution 2
my $max_int = (-1)>>1;