#!/usr/bin/perl

# lista los directorios solamente
@files=glob "*";

@dirs = grep{-d} @files;

print join("\n", @dirs);
print "\n";