Select Code to Download

use strict;
use warnings;
...
my $dir = '/path/to/some/dir';
my @folders = grep { -d "$dir/$_" } read_dir($dir);
print Dumper(\@folders);