/* Something Perl shouldn't free */
static char s[4] = "\x11\x11\x11\x11";

SV* fetch() {
   SV* sv = newSV_type(SVt_PV);
   SvPV_set(sv, s);
   SvPOK_on(sv);
   SvLEN_set(sv, 0);
   SvCUR_set(sv, 4);
   return newRV_noinc(sv);
}