#include <EXTERN.h>
#include <perl.h>

static PerlInterpreter *my_perl;

int main (int argc, char *argv[], char *env[]) {
   char *private_argv[] = { "", "script.pl", "some", "args" };
   my_perl = perl_alloc();
   perl_construct(my_perl);
   perl_parse(my_perl, NULL, 4, private_argv, NULL);
   perl_run(my_perl);
   /* ... */
}
/* ... */