static void xs_init (pTHX);
EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
EXTERN_C void boot_Module (pTHX_ CV* cv);

EXTERN_C void
xs_init(pTHX)
{
	char *file = __FILE__;
	dXSUB_SYS;

	/* DynaLoader is a special case */
	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
    newXS("Module::bootstrap", boot_Module, file);
}

##</code><code>##

    perl_parse(my_perl, NULL, argc, argv, (char **)NULL);
##</code><code>##

    perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
##</code><code>##

C:\>interp -e "Module::bootstrap();Module::say()"