call_sv((SV*)my_callback, G_VOID|G_DISCARD|G_EVAL);
    if (SvTRUE(ERRSV)) {
       /* do something */
       croak("%s", SvPV_nolen(ERRSV));
    }