#/usr/bin/perl -w

use Win32::IProcess;

use strict ;

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

$process -> EnumProcesses(\@processlist) || die "Unable to get process list: $!\n";
my $count = 0;
foreach $process(@processlist)
{
   
   my $pid = $process ->{ProcessId};
   my $name = $process->{ProcessName};
   
   
   if ($count <= $#processlist)
   {
      $count++;
   }
   
format STDOUT_TOP =
Number	Process Name		Process Id
======	===================	=============
.

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

write;
}