# devel.pl
use Devel::Peek;
my $a = "test";
Dump $a;
my $b = 5; 
Dump $b;
my $c = "123";
Dump $c;

##</code><code>##

SV = PV(0x22548c) at 0x18244e8
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)
  PV = 0x22cadc "test"\0
  CUR = 4
  LEN = 5
SV = IV(0x1828e5c) at 0x182450c
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,pIOK)
  IV = 5
SV = PV(0x2254a4) at 0x18244dc
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)
  PV = 0x22b26c "123"\0
  CUR = 3
  LEN = 4