///#include "stdafx.h"
#include <windows.h>
#include <tlhelp32.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "perl.h"
#include "EXTERN.h"
#include "XSUB.h"

PerlInterpreter *my_perl;
BOOL GetProcessList( );

int main(int argc, TCHAR* argv[]) {
    PERL_SYS_INIT3(NULL, NULL, NULL);
    my_perl = perl_alloc();
    perl_construct(my_perl);
    GetProcessList( );

    perl_destruct(my_perl);
    perl_free(my_perl);
    PERL_SYS_TERM();
    return 0;
}

BOOL GetProcessList( ) {
	HANDLE hProcessSnap = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
	PROCESSENTRY32 pe32;
	pe32.dwSize = sizeof( PROCESSENTRY32 );

	while( Process32Next( hProcessSnap, &pe32 ) ) {
		SV* name_sv = newSV(0);

		printf("process name is %s \n", pe32.szExeFile); 
		sv_setpv((SV*)name_sv, pe32.szExeFile);
	}

	CloseHandle( hProcessSnap );
	return( TRUE );
}