#!perl -w
use strict;
use Win32::OLE qw(in);

#Mode: Window Management Instrumentation (WMI)

# processproperties
my @properties = qw(Caption CreationClassName CreationDate CSCreationC
+lassName
            CSName Description ExecutablePath ExecutionState Handle
            HandleCount InstallDate KernelModeTime MaximumWorkingSetSi
+ze
            MinimumWorkingSetSize Name OSCreationClassName OSName
            OtherOperationCount OtherTransferCount PageFaults PageFile
+Usage
            ParentProcessId PeakPageFileUsage PeakVirtualSize PeakWork
+ingSetSize
            Priority PrivatePageCount ProcessId QuotaNonPagedPoolUsage
            QuotaPagedPoolUsage QuotaPeakNonPagedPoolUsage QuotaPeakPa
+gedPoolUsage
            ReadOperationCount ReadTransferCount SessionId Status Term
+inationDate
            ThreadCount UserModeTime VirtualSize WindowsVersion Workin
+gSetSize
            WriteOperationCount WriteTransferCount);

# processmethods
my @methods = qw(Create Terminate GetOwner GetOwnerSid);

my $server = ''; # local machine

my $locatorObj = Win32::OLE->new('WbemScripting.SWbemLocator')
    or die ("Error in creating locator object: ".Win32::OLE->LastError
+()."\n");

$locatorObj->{Security_}->{impersonationlevel} = 3;

my $serverObj = $locatorObj->ConnectServer($server, 'root\cimv2')
    or die ("Error in creating server object: ".Win32::OLE->LastError(
+)."\n");

my $procSchema = $serverObj->Get('Win32_Process');

#@properties = map{ $_->{Name} } (in $procSchema->{Properties_});
#@methods    = map{ $_->{Name} } (in $procSchema->{Methods_});

foreach my $process (in $serverObj->InstancesOf("Win32_Process")){
    foreach (@properties){
    printf ("'%20s' => '%s'\n", $_, $process->{$_} || '' );
    }
    print ("-----------------------------------------------\n");
}
[download]

Best regards,
perl -e "print a|r,p|d=>b|p=>chr 3**2 .7=>t and t"

use Win32::Setupsup;

die if(!Win32::Setupsup::GetProcessList('', \@proc, \@threads));

foreach $item (@proc) 
    { print "name: ${$item}{'name'}; pid: ${$item}{'pid'}\n";}

foreach $item (@threads) 
    { print "tid: ${$item}{'tid'}; pidx: ${$item}{'process'}; process:
+ ${$proc[${$item}{'process'}]}{'name'}\n"; }
[download]

Best regards,
perl -e "$_=*F=>y~\*martinF~stronat~=>s~<[^\w]~~g=>chop,print"