PUSHMARK(SP) ;
   XPUSHs(sv_2mortal(newSVsv(cbd->perl_object))); // self
   XPUSHs(sv_2mortal(newSVsv(cbd->perl_data)));   // data
   PUTBACK ;
      
   call_sv(cbd->perl_callback, G_DISCARD);