#!/usr/bin/perl

# lista todos los directorios del directorio actual

foreach(`ls`) {
    chomp;  # Borra el newline si existe
    print "$_\n" if(-d);
    # print if(-d);
}