use strict;
use Win32::Process::Info;

Win32::Process::Info->Set(variant=>'WMI');
my $pi = Win32::Process::Info->new();
for($pi->ListPids){
    my ($info) = $pi->GetProcInfo($_);
    if($info->{CommandLine} eq 'perl foo.pl a'){
         my $obj;
         my $pid = $info->{ProcessId};
         kill 2, $pid; 
         print "Killed $pid\n\n";
    }
}