use File::Find;

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