#!/usr/bin/perl

 use Win32::Process::Info;
	
 $pi = Win32::Process::Info->new ("172.16.222.173", "WMI");

 @pids = $pi->ListPids ();	# Get all known PIDs
 @info = $pi->GetProcInfo ();	# Get the max
foreach $i (@pids)
{
	print $i, "\n";
	@proc = $pi->GetProcInfo($i);
	print @proc , "\n";
	
}