#!/usr/bin/perl

use strict;
use warnings;

my $directory = '/path/to/directory/';
my $accesstime = 2; # letzter Zugriff vor 2 Tagen

opendir(DIR,$directory) or die $!;
my @files = grep{$_ !~ /\.\.?$/}readdir(DIR);
closedir DIR;

for my $file(@files){
    my $filename = $directory . '/' . $file;
    if(-f $filename and -A $filename >= $accesstime){
        unlink $filename;
    }
}