(module)File-Find

-name などのオプションではなくサブルーチンで検索をおこなう。
(サブルーチンのリファレンスを指定)

(例1) 実行ファイル(-x)をprint
use File::Find;
find(\&wanted, $dir);
sub wanted {
  print "$File::Find::name\n" if -x $_;
}

(例2) ファイルを配列に入れる
use File::Find;
find(sub { push @files, $File::Find::name if -f }, $dir);