Datum aller Dateien in Verzeichnis auslesen

[Peter]

Hi,
mit diesem Code ermittle ich das Datum einer Datei

  
#!/usr/bin/perl  
  
use POSIX qw(strftime);  
  
$dir = "/daten/text/7770.txt";  
my @Info = stat($dir);  
  
my $time = "$Info[9]\n";  
my $datei_datum = strftime("%d.%m.%Y",localtime($time));  
my $datum_aktuell = strftime("%d.%m.%Y",localtime(time));  
  
print "$datei_datum\n";  

soweit so gut. Nur weiss ich nicht, wie ich jetzt das Datum für alle Dateien in einem Verzeichnis ermitteln kann.
Kann mir da jemand helfen?

Gruß
Peter