Select Code to Download

my %dirs;
find(sub { $dirs{$File::Find::dir}++;}, $path);

my @dirs;
find(sub { push @dirs, $File::Find::dir }, $path);