PerlInterpreter * mine = NULL;
...
void
setcallback()
   CODE:
      ...
      mine = Perl_get_context();
      ...