It seems a better solution would be to just use File::Find and supply a wanted function that finds detects apache, eg:

use File::Find;

File::Find::find(\&wanted,'/');

sub wanted
{
 die "$File::Find::dir is the apache dir" if $File::Find::name=~/[aA]p
+ache\.exe/;
}
[download]