CV* (*Perl_newXS)(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename);

....
Perl_newXS = (CV* (*)(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename) )dlsym(handle, "Perl_newXS");