DB<1> print ~0
4294967295
  DB<2> print ~0+1
4294967296
  DB<3> print ~0+2
4294967297
...
  DB<12> print ~0*2**18
1.12589990658048e+15
...
  DB<15> print ~0*2**17
562949953290240
...
  DB<33> p unpack('J', pack('j', -1));
4294967295
  DB<34> p 0+sprintf('%u', -1);
4294967295

##</code><code>##

  DB<81> p 999999999999999+1
1e+15
  DB<82> p 999999999999998+1
999999999999999
  DB<83> p 999999999999998+2
1e+15
  DB<84> p 999999999999998+2-1
999999999999999
  DB<85> p 1e+15-1
999999999999999

##</code><code>##

  DB<88> p 999999999999998+4-5
999999999999997
...
  DB<96> p 999999999999999+2**52 -2**52
999999999999999
  DB<97> p 999999999999999+2**53 -2**53
1e+15

##</code><code>##

  DB<32> $x=0;for(1..2**31) {print;last if $x++>5}
Range iterator outside integer range at (eval 36)[/usr/share/perl/5.10/perl5db.pl:638] line 2.
 
  DB<33> $x=0;for(1..2**30) {print;last if $x++>5}
1234567

  DB<34> $x=0;for(1..~0) {print;last if $x++>5}
Range iterator outside integer range at (eval 45)[/usr/share/perl/5.10/perl5db.pl:638] line 2.

##</code><code>##

  DB<46> $x=0;for(1..2**31-2) {print;last if $x++>5}
1234567
  DB<47> $x=0;for(1..2**31-1) {print;last if $x++>5}
Range iterator outside integer range at (eval 51)[/usr/share/perl/5.10/perl5db.pl:638] line 2.