find({wanted => \&search_tcl_files, follow => 1, follow_skip=>2},$directory);