#/usr/bin/perl -w

use Win32::IProcess;

$process = new Win32::IProcess || die "Unable to create new process!: $!\n";

$process -> EnumProcesses(\@processlist) || die "Unable to get process list: $!\n";

foreach $process(@processlist){

$pid = $process ->{ProcessId};
$name = $process->{ProcessName};
$count = 0;

while($count < $process(@processlist)){
	$count++;
}

format STDOUT_TOP =
Number	Process Name		Process Id
======	===================	=============
.

format STDOUT =
@<<<<	@<<<<<<<<<<<<<<<<<<<	@<<<<
$count,	$name,			$pid
.

write;
}