Foro - Perl en Español

En días pasados, Explorer me ayudo diciéndome cómo listar todos los archivos de un cierto directorio,

@ficheros = <*.*>;

y efectivamente funcionó muy bien.
Ahora necesito listar los sub-directorios que existen dentro de un directorio, no los archivos.
¿¿¿¿Hay alguna forma de hacerlo?????
Yo lo hice con,

system "dir *. /B > directories.txt";
y funciona pero tiene sus problemas con la seguridad de los directorios.
¿¿¿¿Alguien conoce otra opción, sin usar el comando system????
Espero que alguien me pueda ayudar.
Gracias de antemano.

Oye Explorer:
Fíjate que me encontré por allí un artículo tuyo en el que le ayudaste a una persona a separar directorios de ficheros y con ese ejemplo ya pude lograr lo que yo quería.
Es decir yo sólo necesitaba los directorios y ya lo pude hacer.
Muchas gracias nuevamente.
Recibe un fuerte saludo desde Guadalajara,Mexico.

Hola. También, si quieres saber más de ficheros y directorios en Perl, no dudes en preguntarme ^^ me he especializado en eso y sobre todo bajo Windows. OK