#!/usr/bin/perl
use strict;
use warnings;

# Verzeichnispfad anpassen 
my $verzeichnis = "/verzeichnis";

# Alter der Dateien in Sekunden angeben
my $alter =  60*60*24*3; # In Sekunden angeben!

my @dirliste=('.');
while(@dirliste >0)
{
                my $dir=shift(@dirliste);                       # nimmt das erste Element des Arrays und löscht es
            opendir(DIR,"$verzeichnis/$dir") or die "Konnte Verzeichnis $dir nicht öffnen ($!)";

            while(my $d=readdir(DIR))                       # aktuelles Verzeichnis durchlaufen
            {
                  if (($d eq "\.")||($d eq "\.\.")){next};  # Links auf aktuelles und vorhergehndes Verzeichnis überspringen
                  my $path="$dir/$d";
                  
                  if(-d "$verzeichnis/$path")                    # wenn das aktuelle Element ein Verzeichnis ist, dann
                  {
                        push (@dirliste,$path);             # hänge es an die Verzeichnisliste an
                        
                  }
                  else                                      # ist eine Datei
                  {
                        my @stat = stat("$verzeichnis/$path");
                                                if ((time - $stat[8]) > $alter) { 
                                print "lösche $verzeichnis/$path\n";
                                unlink("$verzeichnis/$path");
                                }
                  }
            }
            closedir(DIR);
};