my @proc_lines = `tasklist`;

##</code><code>##

use warnings;
use strict;
use Win32::Process::List;

my $plist = Win32::Process::List->new();
my $pid = $plist->GetProcessPid("explorer");