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