#!/usr/bin/perl
use strict;

# Alter der Dateien in Sekunden angeben
my $age =  50000; # In Sekunden angeben!

# Endung wird dreistellig übergeben
my $ending = ($ARGV[0]);

# Pfad wird übergeben
my $path = ($ARGV[1]);

# Arbeitsverzeichnis für temporäre Dateilisten
my $workdirectory = "/home/edv";

# Logverzeichnis für gespeicherte Daten
my $savedirectory = "/var/log";

# Counter auf Null setzen
my $counter = 0;

# Sicherheitsausgabe
print "\nSuche alle Dateien mit Endung: $ending im Pfad: $path\n\n"; 

# Liste mit zu überprüfenden Dateien erstellen
system("find $path -type f -name \*.$ending > $workdirectory/cleanup.list");

# Datei einlesen
open (DATEI, "$workdirectory/cleanup.list") || die "Datei nicht gefunden";

foreach my $line ( <DATEI> ) 
{ 
        $counter++;     
        # Dateistatistik mittels stat bestimmen
        my @stat = stat($line);
        print "Letzte Zugriffszeit:$stat[8]\n";
        # JA/NEIN (True/False) Wert
        if ((time - $stat[8]) > $age) 
        { 
                # Dateien loeschen per unlink
                print "Gelöscht:$line";
                unlink($line);
        }               
}       
close (DATEI);

print "\nDateien:$counter\n\n";

perl -we'
use Data::Dumper;
$Data::Dumper::Useqq = 1;
$line = "datei.txt\n";
print "$line\n";
print Dumper $line;'
datei.txt

$VAR1 = "datei.txt\n";

       -amin N
              auf die Datei ist vor N Minuten zugegriffen worden

       -atime N
              auf die Datei ist vor N*24 Stunden zugegriffen worden

#!/bin/bash
# Alter der Dateien in Minuten angeben
age=833
# Endung wird dreistellig übergeben
ending = $1
# Pfad wird übergeben
path = $2

find $path -iname '*.$ending' -amin $age -exec echo -n "Gelöscht: " \; -exec rm {} \; -print