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

static PerlInterpreter * my_perl = 0;

int main(int argc, char **argv, char **env)
{
	PERL_SYS_INIT3( &argc, &argv, &env );

	my_perl = perl_alloc();
	perl_construct(my_perl);
	perl_parse(my_perl, 0, argc, argv, 0);
	perl_run(my_perl);
	perl_destruct(my_perl);
	perl_free(my_perl);

	PERL_SYS_TERM();
}