#include <EXTERN.h>        /* from the Perl distribution   */
           #include <perl.h>  /* from the Perl distribution     */

           static PerlInterpreter *my_perl; /*** The Perl interpreter ***/

           int main(int argc, char **argv, char **env)
           {
               PERL_SYS_INIT3(&argc,&argv,&env);
               my_perl = perl_alloc();
               perl_construct(my_perl);
               PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
               perl_parse(my_perl, NULL, argc, argv, (char **)NULL);
               perl_run(my_perl);
               perl_destruct(my_perl);
               perl_free(my_perl);
               PERL_SYS_TERM();
           }

       Notice that we don't use the "env" pointer.  Normally
       handed to "perl_parse" as its final argument, "env" here
       is replaced by "NULL", which means that the current envi-
       ronment will be used.  The macros PERL_SYS_INIT3() and
       PERL_SYS_TERM() provide system-specific tune up of the C
       runtime environment necessary to run Perl interpreters;
       since PERL_SYS_INIT3() may change "env", it may be more
       appropriate to provide "env" as an argument to
       perl_parse().

       Now compile this program (I'll call it interp.c) into an
       executable:

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