find ({
  wanted => \&wanted,
  preprocess =>sub{ @_ = grep !-d, @_ }
}, "dir");