I am not sure I know exactally what you need but what follows is some code to list all the active processes and their pids. Inotepad is running it will kill it.. if several notepads are running they will ALL be killed.

#! /usr/bin/perl

use strict;
use warnings;

use Win32::OLE qw( in );
use Win32::OLE::Variant;
use Win32::Process;

my $srv = "\\\\" . $ENV{'COMPUTERNAME'};

my $CLASS = "winmgmts:{impersonationLevel=impersonate}$srv\\Root\\cimv
+2";
my $WMI = Win32::OLE->GetObject( $CLASS ) || die;
foreach my $Proc ( in($WMI->InstancesOf( "Win32_Process" ) ) ) {
    if ($Proc->{Name} =~ /^notepad/i) {
        printf( "%d\t- %s ***KILLING***", $Proc->{ProcessID}, $Proc->{
+Name});
          print "\n";
        Win32::Process::KillProcess($Proc->{ProcessID}, 0);
    }
    else {
        printf( "%d\t- %s", $Proc->{ProcessID}, $Proc->{Name});
          print "\n";
      }
}
[download]