RegisterCB2 (SV *SubRef)
    CODE:
       cb_ptr2 = newSVsv(SubRef);
       printf("registered %lud\n", cb_ptr2);
       Perl_sv_dump(orig_perl, cb_ptr2);
       RETVAL = 1;
    OUTPUT:
       RETVAL