#! /usr/bin/perl

#use strict;
use warnings;

use Win32::API;

#define some constants
my $DWORD_SIZE = 4;
my $PROC_ARRAY_SIZE = 300;
my $MODULE_LIST_SIZE = 300;

#define some Win32 API constants
my $PROCESS_QUERY_INFORMATION = 0x0400;
my $PROCESS_VM_READ = 0x0010;

my $enum_proc	= new Win32::API( 'psapi.dll', 'EnumProcesses', [P,N,P], I ) || die "Cannot Enum Processes: $!\n";

#Create a Buffer Array
my $proc_array	= &MakeBuffer($DWORD_SIZE * $PROC_ARRAY_SIZE);
my $proc_num	= &MakeBuffer($DWORD_SIZE);

if (0 != $enum_proc->Call($proc_array, $PROC_ARRAY_SIZE, $proc_num)) {
	$proc_num = unpack ("L", $proc_num) / $DWORD_SIZE;
	print "\$proc_num = $proc_num\n";
	
	my @pid_lst = unpack("L$proc_num", $proc_array);
	foreach my $pid(@pid_lst) {
		print "$pid - Running\n";
	}
}

sub MakeBuffer
{
	my ($buffer_size) = @_;
	return("\x00" x $buffer_size);
}