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

void do_something () {
	dSP;
	ENTER;
	SAVETMPS;
	PUSHMARK(SP);
	eval_pv("$a = 1", 1);
	SPAGAIN;
	FREETMPS;
	LEAVE;
}

int main (int argc, char* argv[]) {
	PerlInterpreter *my_perl = perl_alloc();
	char *embedding[] = {"", "-e", "0"};
	I32 i;
	char c;

	perl_construct(my_perl);
	perl_parse(my_perl, NULL, 3, embedding, NULL);
	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

	printf("Press a key to start\n");
	read(0, &c, 1);
	for (i = 0; i < 1000000; ++i)
		do_something();
	
	printf("Press a key to continue\n");
	read(0, &c, 1);
	PL_perl_destruct_level = 1;
	perl_destruct(my_perl);
	perl_free(my_perl);
	
	printf("Press a key to exit\n");
	read(0, &c, 1);

	return 0;
}

##</code><code>##

void do_something () {
	dSP;
	ENTER;
	SAVETMPS;
	eval_pv("$a = 1", 1);
	FREETMPS;
	LEAVE;
}