Select Code to Download

$ perl -MO=Concise,-exec -MDevel::Peek -we'Dump 1; sub foo{Dump $_[0];
+$_[0]=1} foo(1)'
1  <0> enter
...
9  <1> entersub vKS
a  <@> leave[1 ref] vKP/REFC
-e syntax OK

$ perl -MO=Concise,-exec -MDevel::Peek -we'Dump 1+1; sub foo{Dump $_[0
+];$_[0]=1} foo(1+1)'
1  <0> enter
...
9  <1> entersub vKS
a  <@> leave[1 ref] vKP/REFC
-e syntax OK

$ perl -MDevel::Peek -e'Dump(${\1})'
SV = IV(0x8549e4010) at 0x8549e4020
...
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 2