Foro - Perl en Español

Hola a todos.

Bueno, mi duda es la siguiente: tengo un árbol de directorios organizados por año/mes/días. Ejemplo: dentro del año 2017 tengo 12 carpetas correspondientes a 12 meses, dentro de cada mes 30 o 31 carpetas según los días del mes y dentro de cada día una cantidad X de ficheros.

Lo que necesito es obtener las rutas completas de cada fichero, pues cada fichero pasará después por un decodificador. Ya tengo esto:

$directorio="W:/2017/Agosto/*"; #ruta
@files = glob($directorio);
foreach $files(@files){
push @lista,$files;
if(-f $files){push @fichero,$files;}
elsif(-d $files){push @carpetas,$files;}
}
print "@fichero";
print "@carpetas";

Y obtengo solo lo que está dentro dentro de agosto (30 carpetas, 0 ficheros). Yo necesito, como dije, lo que está en las subcarpetas que están dentro de agosto, o sea las 30 carpetas de los días de agosto y dentro de cada día leer los archivos...

P.D.: ojalá me entiendan, jejeje.