Verzeichnis auslesen

[Levent]

hi,

also ich möchte ein Verzeichnis auslesen und dabei
alle Dateien vom Vormonat aussortieren ...

folgenden Ansatz habe ich, aber ich komm nicht weiter:

zeit an dem die datei(en?) geschrieben wurde

my $writetime = (stat($logfiles))[9];
my $month = strftime("%m", localtime $writetime);
my $year = strftime("%Y", localtime $writetime);

monat und jahr von heute

my @zeit = localtime(time);
my $zeit;
my $monat = $zeit[4]+=1;
$monat = $monat < 10 ? $monat = "0".$monat : $monat;
$monat-=1;
my $jahr = strftime("%Y", localtime(time));

das ist meine Idee, aber da ist der wurm drinn,
das ist eine endlosschleife ...

while($monat == $month && $jahr == $year){
        foreach (@logfiles){
                #copy($_,$verzeichnisname);
                #unlink($_);
                print $_;
        }
}