Select Code to Download

#!/usr/local/bin/perl -w
use Devel::Peek;
...
}
@array=('a',5);
func(\@array);

SV = RV(0x12ebe8) at 0x11df50
  REFCNT = 1
...
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 5