ディレクトリ名の一覧を表示するには

２つほど。

その１

use strict;
use warnings;
use Data::Dumper;

my $dn = shift @ARGV;
opendir(DIR ,$dn);
my @dl = grep {$_ !~ /^\.+/} grep {-d "$dn\\$_"} readdir(DIR);
closedir(DIR);

その２

use strict;
use warnings;
use Data::Dumper;
use File::Basename;

my $dn = shift @ARGV;
my @dl = map{basename($_)} grep {-d} <$dn\*>;
print Dumper(@dl);