#define PERL_NO_GET_CONTEXT     /* we want efficiency */

##</code><code>##

void callback(){
dTHX;       /* fetch context */
...