Select Code to Download

open(my $FOLDERS, '+>', "dirs.log") or die $!;
find(
    sub {
...
        },
    $cwd
);

open(my $FOLDERS, '+>', "dirs.log") or die $!;
find(sub { push @folders, "$_" and print $FOLDERS "$_\n" if -d $File::
+Find::name && !$seen{$_}++;