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

static PerlInterpreter *my_perl;

int _tmain(int argc, _TCHAR* argv[])
{
    PERL_SYS_INIT(&argc, (char***) &argv);
    my_perl = perl_alloc();
    perl_construct( my_perl );
    perl_parse( my_perl, NULL, argc, (char**) argv, (char **)NULL );
    perl_run( my_perl );
    perl_destruct( my_perl );
    perl_free( my_perl );
    PERL_SYS_TERM();

    return 0;
}