interpreter = perl_alloc( );
perl_construct(interpreter);
perl_parse(interpreter, xs_init, argc, argv, NULL);
eval_pv(install_sig_handlers, 0);
eval_pv(my_code, 0); // profiling, debugging etc. work
perl_run(interpreter);
perl_destruct(interpreter);
perl_free(interpreter);