#!/usr/bin/perl -w

use strict;

#my @dirList = `find . -maxdepth 1 -type d`;

#@dirList = sort @dirList;

my $some_dir = "/var/www/manual";

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
my @dirList = grep { !/^\./ && -d "$some_dir/$_" } readdir(DIR);
closedir DIR;

foreach (@dirList) {
    print "$_\n" if -d "$some_dir/$_";
}