Select Code to Download

eval_pv("$string = \"This is a string\"; print(\"$string\\n\");");

static void call_some_perl_sub(const char* s) {
    dSP;
...
    FREETMPS;
    LEAVE;
}