Select Code to Download

opendir(DIR, $some_dir) or die "Can't opendir $some_dir: $!";
my @subdirs = ();
...
  push (@subdirs, $_) if -d "$some_dir/$_";
}
closedir DIR;