use DirHandle;

my $dh = new DirHandle('/etc') or die "Can't open /etc: $!";
my @subdirs = grep { -d && $_ !~ /^\.?\.$/ } $dh->read();
$dh->close();
[download]

--
perl -e "print qq/just another perl hacker who doesn't grok japh\n/"
simeon2000|http://holdren.net/