use Win32::Process::Info;
$pi = Win32::Process::Info->new ([machine], [variant]);
@info = $pi->GetProcInfo ();   # Get the max