Select Code to Download

perl -MDevel::Peek -e '$x=42;Dump $x'
SV = IV(0x ) at 0x
  FLAGS = (IOK,pIOK)
  IV = 42

perl -MDevel::Peek -e '$x=42;print "$x";Dump $x''
SV = PVIV(0x ) at 0x
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 42
  PV = 0x  "42"\0

perl -MDevel::Peek -e '$x="42";Dump $x'
SV = PV(0x ) at 0x
  FLAGS = (POK,pPOK)
  PV = 0x  "42"\0

perl -MDevel::Peek -e '$x=42;Dump $x;print NOWHERE "$x";Dump $x'
SV = IV(0x815544c) at 0x812ab4c
  FLAGS = (IOK,pIOK)
...
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 42
  PV = 0x8150890 "42"\0