#include "stdafx.h" #include "perl.h" static PerlInterpreter *my_perl; int _tmain(int argc, _TCHAR* argv[]) { char *args[] = { "", "-e", "0" }; my_perl = perl_alloc(); perl_construct( my_perl ); perl_parse( my_perl, NULL, 3, args, (char **)NULL ); perl_run( my_perl ); perl_destruct( my_perl ); perl_free( my_perl ); return 0; }