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