#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 );
...