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