my $dir = "/";
opendir(DH, $dir) or die "Couldn't open directory: $dir";
while(my $line = readdir(DH)){
        chomp $line;
        if ($line =~ /^\./){
                next;
        }
        elsif (-d $line){
                print "$line\n";
        }
}
close(DH);