#/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";
$count = 0;


foreach (@processlist){

	$pid = $_ ->{ProcessId};
	$name = $_ ->{ProcessName};
	$count++;
	write;
}
	
format STDOUT_TOP =
Number	Process Name		Process Id
======	===================	=============
.

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