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
39 newXSUB("POSIX::bootstrap", 0, boot_POSIX, file);
40 newXSUB("NDBM_File::bootstrap", 0, boot_NDBM_File, file);
41 newXSUB("ODBM_File::bootstrap", 0, boot_ODBM_File, file);