Select Code to Download

use File::Find;
my @found;
find(sub { push @found, $File::Find::name; }, @directories);
...