find (\&wanted, [$dir]);