Help for this page

Select Code to Download

Select or download this

# with my Ubuntu system perl v5.26.1
% perl -MDevel::Peek -wle 'for(0x1p+60, 0x1p+60, 0x1p+60) { Dump($_); 
+print $_ + 1; Dump($_) }'
...
  REFCNT = 2
  FLAGS = (NOK,READONLY,PROTECT,pNOK)
  NV = 1.15292150460685e+18