const char script[] = 
"Here is my big script with function 'exec_it()'";

static PerlInterpreter *my_perl;
my_perl = perl_alloc();
perl_construct(my_perl);

##</code><code>##

perl_call_pv("exec_it", G_DISCARD);