#!/perl/bin/perl

use File::Find;

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

find \&wanted, "\\";

sub wanted {
    print "$File::Find::dir is the apache dir" if $File::Find::name =~ /[Hh]ttpd\.conf/;
}