Listing 1. Code to Include in main Routine (sc.c)

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 */