or download this
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( h
+andle, "Perl_newXS" );
return (*imp)(my_perl, name, subaddr, filename);
}