Select Code to Download

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`

 static void xs_init (pTHX);
 EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
...
        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
        newXS("Socket::bootstrap", boot_Socket, file);
 }

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 ldo
+pts`
     interp