xs_init
int xs_init(void);
err = xs_init();
xs_init();
if (perl_parse(my_perl, xs_init, argc + 2, (char **)command_line,
void xs_init(pTHX);