interpreter = perl_alloc( ); perl_construct(interpreter); perl_parse(interpreter, xs_init, argc, argv, NULL); perl_run(interpreter); // Install signal handlers et al. eval_pv(my_code); // doesn't get profiled, can't debug perl_destruct(interpreter); perl_free(interpreter);