Select Code to Download

void my_callback(void *data)
{
    call_into_perl_event_handler(data);
}

// XS:
void my_callback(void *data)
...
{   
    event_handler($event);
}