use strict;
use warnings;

use Win32::Process::Info;

Win32::Process::Info->Set (variant => 'WMI'); #Force to use WMI (quicker)
my $pi = Win32::Process::Info->new(); #Enumerate all the PIDs

my $everest_process = undef;

#For each PID, grab its name and look for everest processes
for ( $pi->ListPids )
{
    my ($info) = $pi->GetProcInfo ($_);
    
    if ( $info->{Name} =~ /everest/gi ) { $everest_process = 1; }
    
}