#!/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;
    }
}

#!/usr/bin/perl

use strict;
use warnings;

my $dir = '/directory/';
my $last_access = 2;

opendir(DIR,$dir) or die $!;
my @files = grep{-f $_ and -A $_ >= $last_access}map{$dir.'/'.$_}grep{$_ !~ /\.\.?$/}readdir(DIR);
closedir DIR;

unlink @files;