/*=============================================
	* start Perl Interpreter
	*============================================*/
	PERL_SYS_INIT3(&argc,&argv,&env);
	my_perl= perl_alloc();
	perl_construct(my_perl);
	
	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

	perl_parse(my_perl, NULL, 2, my_argv, (char **)NULL);
	perl_run(my_perl);