Help for this page

Select Code to Download

Select or download this

$ perl new.pl
SV = PV(0x7460) at 0x35cb4
  REFCNT = 1
...
  PV = 0x6330 " \0w.pl\0\0\0\0"\0
  CUR = 10
  LEN = 11

Select or download this

use Devel::Peek;
use Inline C=> 'DATA';

...
    SvCUR_set(out,nr);
    return (out);
}