#!/usr/bin/perl 
use warnings;
use strict;

my @dirs = grep{-d $_}glob "*";
print join "\n",@dirs;