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

static PerlInterpreter *my_perl;

EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
EXTERN_C void boot_Win32CORE (pTHX_ CV* cv);

EXTERN_C void xs_init(pTHX)
{
	char *file = __FILE__;
	dXSUB_SYS;

	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
	newXS("Win32CORE::bootstrap", boot_Win32CORE, file);
}

int _tmain(int argc, _TCHAR* argv[])
{
	int iMyArgC = 4;
	char *embedding[] = { "Perl-Test.exe", "-e", "0", "--" };
	
	PERL_SYS_INIT(&iMyArgC, (char***) &embedding);
	my_perl = perl_alloc();
	perl_construct( my_perl );
	perl_parse( my_perl, xs_init, iMyArgC, (char**) embedding, (char **)NULL );
	perl_run( my_perl );

	SV* pl;
	pl = eval_pv( "my $a = \"Ich existiere.\"; defined $a or die;", TRUE );
	pl = eval_pv( "defined $a or die;", TRUE );
...