Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
  CUR = 3
  LEN = 8
bcd

Select or download this

C:\test>perl -MDevel::Peek=Dump -E"
$s = 'fred'; 
...
      PV = 0x16b3b8 "feud"\0
      CUR = 4
      LEN = 8