void callp( SV* data)
{
    //dTHX;
    PERL_SET_CONTEXT(mine);
    {
    dMY_CXT;
    dSP;
    
    ENTER; SAVETMPS; 
    PUSHMARK(SP);
    
    PUTBACK;
    
    perl_call_sv(MY_CXT.callback,G_DISCARD|G_NOARGS);
    SPAGAIN;
    
    PUTBACK;FREETMPS;LEAVE;
    }
}