Select Code to Download

use File::Find;
my @files;
find {no_chdir =>1, wanted => sub{-d and return; push @files,$_ } },@r
+oots;