use File::Find;

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

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