CV* Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename) {
  CV* (*imp)(tTHX, const char*, XSUBADDR_t, const char*);
  imp = (CV* (*)(tTHX, const char*, XSUBADDR_t, const char*)) dlsym( handle, "Perl_newXS" );
  return (*imp)(my_perl, name, subaddr, filename);
}