follow引数を1にすると対応する。 しなくてもやってくれる環境があるのが謎。。。。 use File::Find; find({ wanted => \&wanted, follow => 1 }, "./"); sub wanted { # $_に対する処理 }