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`