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 );

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

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