10 PerlInterpreter *my_perl;
12 my_perl = perl_alloc();
15 perl_construct( my_perl );
17 exitstatus = perl_parse( my_perl, argc, argv, env );
21 exitstatus = perl_run( my_perl );
23 perl_destruct( my_perl );
29 /* Register any extra external extensions */
34 char *file = __FILE__;
36 #ifdef USE_DYNAMIC_LOADING