Select Code to Download

/* moduletext = text of module + "package main; DynTrans->import;" */
    eval_pv(moduletext, TRUE);         /* ~ use DynTrans; */
    eval_pv("$a = fortytwo();", TRUE); /* its function is available */

#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *pi;
...
    perl_free(pi);
    return 0;
}

OUTPUT:
EXPECT: a = 42
GOT:    a = 42