This does not qualify as an example. What "example" means is code that we can independently run and see your problem on our machines.

From Perl Doc - File::Find:
follow_skip
follow_skip==1, which is the default, causes all files which are neither directories nor symbolic links to be ignored if they are about to be processed a second time. If a directory or a symbolic link are about to be processed a second time, File::Find dies.

follow_skip==2 causes File::Find to ignore any duplicate files and directories but to proceed normally otherwise.

So, this looks worth a try:

find({wanted => \&search_tcl_files, follow => 1, follow_skip=>2},$dire
+ctory);
[download]