#!/usr/bin/perl -w
#
use strict;
use Win32::Process;
use Win32::Process::Info;

my $run = 1;

while ($run) {
   my $pi = Win32::Process::Info->new();
   my @info = $pi->GetProcInfo();

   my $run = 0;
   for my$av (0..$#info) {
     if ($info[$av]{Name} =~ /notepad.exe/) {
       $run = 1;
     }
   }
}

#...