use strict;
use warnings;
use Data::Dumper::Concise;
use Win32::Process::List;
use Win32::Process;

my $p = Win32::Process::List->new();
my %list = $p->GetProcesses();
foreach my $pid (keys %list) {
    if($list{$pid} eq 'notepad.exe') {
        my ($obj, $iflags);
        Win32::Process::Open($obj, $pid, $iflags)
            or die "Win32::Process::Open failed";
        $obj->Wait(INFINITE);
        print "Done waiting\n";
        exit(0);
    }
}
print "Notepad process not found\n";