#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <stdio.h>
#include "ppport.h"

   
static PerlInterpreter *my_perl;

int main(int argc, char **argv, char **env) {
SV *cvrv = eval_pv("sub { print 'You will not find me cluttering any namespace!' }", TRUE);
char *args[] = { NULL };
PERL_SYS_INIT3(&argc,&argv,&env);
my_perl = perl_alloc();
perl_construct(my_perl);
perl_parse(my_perl, NULL, argc, argv, NULL);
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

/*** skipping perl_run() ***/

 call_sv(cvrv, G_VOID|G_NOARGS);

perl_destruct(my_perl);
perl_free(my_perl);
PERL_SYS_TERM();
}

MODULE = Example		PACKAGE = Example