Select Code to Download

#!/usr/bin/perl

...
use File::Find;
find ({wanted => sub {/\.tcl$/ and print "File::Find $File::Find::name
+\n" },
  follow_skip => 2 }, 'a');

from the system tree command to show file structure
.
...
Path::Tiny::visit: a/b/sym2/file.tcl

File::Find a/b/c/file.tcl