1---->perl_parse(my_perl, NULL, argc, my_argv, NULL);
2---->  perl -MExtUtils::Embed -e xsinit -- -o perlxsi.c
 	cc -c perlxsi.c `perl -MExtUtils::Embed -e ccopts`


##</code><code>##

 static void xs_init (pTHX);
 EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
 EXTERN_C void boot_Socket (pTHX_ CV* cv);
 EXTERN_C void
 xs_init(pTHX)
 {
        char *file = __FILE__;
        /* DynaLoader is a special case */
        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
        newXS("Socket::bootstrap", boot_Socket, file);
 }

##</code><code>##

3----->perl_parse(my_perl, xs_init, argc, my_argv, NULL);
       and the file interp.c must include "perlxsi.c";

4-----> cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
 	interp