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