Select Code to Download

    #include <EXTERN.h>
    #include <perl.h>
...
        perl_free(my_perl);
    PERL_SYS_TERM();
    }

             
if(SvTRUE(ERRSV))
fprintf(stderr, "eval error: %s\n", SvPV_nolen(ERRSV));