find(sub {print $File::Find::name if $_ eq 'blah'}, ".");