#!/usr/bin/perl
use warnings;
use strict;

use File::Find;
use File::Basename;

find (\&for_every_name,'..',);

sub for_every_name
{       
   my $basename = basename($File::Find::name);
   return unless $basename =~ /\.pl$/;
   print "$File::Find::name\n";
   
   my $access_age = -A $basename;
   print "    $basename, acccess age in days: $access_age\n";
}

__END__
Abridged output:

../SSPH_Results/cmpN1MMarrlresults.pl
    cmpN1MMarrlresults.pl, acccess age in days: 40.9642361111111
../SSPH_Results/convert2oldCSV.pl
    convert2oldCSV.pl, acccess age in days: 17.5422685185185
.....deleted.....

../testing/FileFinder.pl
    FileFinder.pl, acccess age in days: 1.15740740740741e-005
    Note: *** "FileFinder.pl" is the name of this file, hence the
    Note: ***  very short last access time!
../testing/fileFindexample.pl
    fileFindexample.pl, acccess age in days: 0.110034722222222