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