# Bei beendigung des Scripts werden alle dat-Files die älter als 4 Tage sind gelöscht.

my @datfiles = `ls -lt $filespath \|awk \'\{ print \$9\}\'`;
foreach (@datfiles) {
        chomp(my $file = $_);
        chomp(my $wholefile = "$filespath/$file");
        if (("%.3f",-M $wholefile) > "5") {
                unlink("$wholefile");
        } else {
                next;
        }
}