Select Code to Download

my $p = './a';
...

print "--> $_\n" for @paths;
# this has been tested

find( sub {
   next unless -d;
...
   mkdir File::Spec->catpath( ... )
} , ' ... '
);