main() static char *scpl_argv[] = { "", "sc.pl" }; /* some sc code */ MyPerl = perl_alloc(); perl_construct(MyPerl); perl_parse(MyPerl, NULL, 2, scpl_argv, env); /* more sc code */ perl_destruct(MyPerl); perl_free(MyPerl); /* more sc code */