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

static PerlInterpreter *my_perl;


static void call_PrintUID()
{
	dSP ;
	PUSHMARK(SP) ;
	call_pv("PrintUID", G_DISCARD|G_NOARGS) ;
}

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


	char *embedding[] = { "", "printuid.pl" };

	my_perl = perl_alloc();
	perl_construct( my_perl );
	perl_parse(my_perl, NULL, 3, embedding, NULL);
	perl_run(my_perl);
	call_PrintUID();
	perl_destruct(my_perl);
	perl_free(my_perl);
	return 0;
}