datum bestimmen von dateien

[Levent]

ich dachte ich vergleiche den heutigen monat
mit dem Monat der Dateien aus dem Verzeichnis
aber dann bekomm ich eine endlosschleife, die
mir trotzdem alles ausgibt ...

zeit an dem die datei geschrieben wurde

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

#verschieben der dateien aus dem quellverzweichnis in das zielverzeichnis
while($monat == $month && $jahr == $year){
        foreach (@logfiles){
                #copy($_,$verzeichnisname);
                #unlink($_);
                print $_;
        }
}