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