use strict;
use warnings;
use utf8;
use 5.014;
use File::Find;

my @directories_to_search = ('.', 'C:\Users\Fred\Desktop');
my @files;
find( \&find_module, @directories_to_search );
my @time =localtime;
say "local time is @time";

sub find_module {
   if ( $_ =~ m/.pm$/ ) {
      my $name = $File::Find::name;
      push( @files, $name );
   }
}

for my $file (@files) {
  my $atime = (stat $file)[8];        # atime via slice
  my $when = localtime $atime;
  print "$when: $file\n";
}