$ perl -V
Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
[...]
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, 
[...]

$ perl -le 'print ~0'     # Integer, 32-Bit-Plattform
4294967295

$ perl -le '$i=1_000_000_000; print ~~$i'    # doppelt negiert => gleicher Wert wie vorher
1000000000

$ perl -le '$i=8_000_000_000; print ~~$i'     # Zu gross fuer einen Int!
4294967295     # Ups!