// cc -o embed_example embed_example.c `perl -MExtUtils::Embed -e ccopts -e ldopts`

#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *my_perl;
int main (int argc, char **argv, char **env)
{
	char *embedding[] = { "", "-e", "0", NULL };
	PERL_SYS_INIT3(&argc,&argv,&env);
	my_perl = perl_alloc();
	perl_construct( my_perl );
	perl_parse(my_perl, NULL, 3, embedding, NULL);
	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
	perl_run(my_perl);
	eval_pv(
          // here is the mock script:
          "my $a = 12; print \"a=$a\n\";"
          "system('touch xyz; ls -al xyz');"
          "print 'iam: '.(getpwuid $<).\"\n\";"
          , TRUE
	);
	perl_destruct(my_perl);
	perl_free(my_perl);
	PERL_SYS_TERM();
}