Select Code to Download

[0] Perl> use Devel::Peek;;
[0] Perl> Dump $x;;
SV = NULL(0x0) at 0x3c6d400
  REFCNT = 1
  FLAGS = ()

[0] Perl> $x = ~0;;
[0] Perl> Dump $x;;
...
  REFCNT = 1
  FLAGS = (IOK,pIOK,IsUV)
  UV = 18446744073709551615

[0] Perl> $x += 2;;
[0] Perl> Dump $x;;
...
  IV = -1
  NV = 1.84467440737096e+019
  PV = 0

[0] Perl> $x **=35;;
[Result too large] Perl> Dump $x;;
...
  IV = -1
  NV = 1.#INF
  PV = 0

[0] Perl> $x /= $x;;
[0] Perl> Dump $x;;
...
  IV = -1
  NV = -1.#IND
  PV = 0