use Win32::Process::Info

my $st = Win32::Process::Info->import('NT', 'WMI');
my $pi = Win32::Process::Info->new (undef, 'WMI');

my @pids = $pi->ListPids ();  
my @info = $pi->GetProcInfo ();

for my $prc (@info){
printf("%s, %s, %s\n", 
         $prc->{"ProcessId"}, 
         $prc->{"Name"},
         $prc->{"Description"}
       );
}