Código:
#!/usr/bin/perl
use strict;
my $directorio = "/home/spiceman";
opendir DIR, $directorio || die "No se pudo abrir el directorio $directorio: $!\n";
my @files = grep {! /^\./ && -f "$directorio/$_" } readdir(DIR);
close DIR;
foreach (@files) {
print "Analizando datos de $_\n";
open TEMPFILE, $_ || die "No se pudo abrir el archivo $directorio/$_: $!\n";
my @datos = <TEMPFILE>;
# lo que se quiere hacer con los datos del archivo
close TEMPFILE;
}
hacerlo recursivo te lo dejo a vos