#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *foo;
main(int argc, char **argv, char **env) {
    char * args[] = { NULL, NULL};
    args[0] = "geh\n";
    foo = perl_alloc();
    perl_construct(foo);
    perl_parse(foo, NULL, argc, argv, env);
    perl_call_argv("printme", G_DISCARD, args);
perl_destruct(foo);
perl_free(foo);
}
##</code><code>##

printme();
sub printme { print $_[0] };
##</code><code>##

prompt% myperl script.pl
geh