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