Select Code to Download

use File::Find;
find ( ref to function, start path(s) )
...

use File::Find;
find ( sub {print($File::Find::dir, "/$_\n") if -d $_}, '.');