dSP;
    ENTER;
    SAVETMPS;
    PUSHMARK(SP);

    AV *arr = newAV();
    av_push( arr, newSVpv("string", 0));
    XPUSHs(sv_2mortal(newRV_noinc((SV *)arr)));

    HV *hash = newHV();
    SV *type = newSVpv("string", 0);
    hv_store( hash, "type", strlen("type"), type, 0);
    XPUSHs(sv_2mortal(newRV_noinc((SV *)hash)));

    PUTBACK;
    call_sv(sv_2mortal(newSVpv("TestPM::test_leak", 0)), G_SCALAR);
    SPAGAIN;
    SV *retval = POPs;
    PUTBACK;
    FREETMPS;
    LEAVE;