xs_init(pTHX) { 
char *file = __FILE__; 
dXSUB_SYS; 
newXS("Filter::Util::Call::bootstrap",
       boot_Filter__Util__Call,file); 
}

##</code><code>##

PerlInterpreter *my_perl; 
#allocate memory for my_perl, construct my_perl, system initialization 
... 
perl_parse(my_perl, xs_init, argc, args, loc_environ);