Select Code to Download

use DirHandle;

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