SV* ret = eval_pv("1;", TRUE);
        SvREFCNT_dec(ret);