find (\&Wanted, $dir);