Select Code to Download

#!/usr/bin/perl
use strict;
...
    hv_store(rv, "x", 1, newSVpv("hello", 0), 0);
    return newRV_noinc((SV*)rv);
}

C:\test>junkic
SV = RV(0x267460) at 0x267450
...
      CUR = 5
      LEN = 8