Select Code to Download

C:\>perl -MO=Deparse -e "my DB $x; print $x"
my DB $x;                                       # <-- DB
...
5        <0> pushmark s ->6
6        <0> padsv[$x:1,2] s ->7
-e syntax OK

C:\>perl -MDevel::Peek -e "my DB $x=10; Dump $x"
SV = IV(0xee96a8) at 0xee96b8
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 10