Select Code to Download

my @dirs = grep {-d "$dir/$_"} readdir($gdh);

my @dirs = grep {/[^.]/ and -d "$dir/$_"} readdir($gdh);

 
opendir (my $tdh, "$dir/$tumordirs") or die "Unable to open subdir";