#include <EXTERN.h>
#include <perl.h>



 static PerlInterpreter *his_perl ;  /***    The Perl interpreter    ***/

 int main(int argc, char **argv, char **env)
 {

	PERL_SYS_INIT3(&argc,&argv,&env);
      
	PERL_SYS_TERM();  his_perl = perl_alloc();
        perl_construct(his_perl);
        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        perl_parse(his_perl, NULL, argc, argv, (char **)NULL);
        perl_run(his_perl);
        perl_destruct(his_perl);
        perl_free(his_perl);
	exit(EXIT_SUCCESS);
 }