Beispiel als Anregung:
U:\>perl
my $cmd = 'notepad.exe';
my @paths = split /;/,$ENV{PATH};

for my $p (@paths) {
tuwas("$cmd in $p gefunden") if (-x "$p\\$cmd")
}

sub tuwas {
my $msg = shift;
print "$msg\n";
1;
}^Z
notepad.exe in C:\WINDOWS\system32 gefunden
notepad.exe in C:\WINDOWS gefunden

U:\>