#!/usr/bin/perl -w
use strict;

my $dirname = ".";
opendir DIR, "$dirname" or die "couldn't open '$dirname': $!";
my @files = grep { -d $_ } readdir DIR;
close DIR;
print join "\n", @files;