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

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

sub wanted {
   if ( $_ =~ m/.pm$/ ) {
      my $name    = $File::Find::name;
      my $success = max_acm($name);
      say "max_acm is $success";
      push( @files, $name );

   }
}

sub max_acm {
   use strict;
   use 5.014;
   use warnings;

   my $path = shift;
   say "$path is $path";
   my @array;
   push @array, 42;
   my $atime = ( stat $path )[8];
   if ( defined $atime ) { say "atime is ok"; push @array, $atime; }
   my $ctime = ( stat $path )[10];
   if ( defined $ctime ) { say "ctime is ok"; push @array, $ctime; }
   my $mtime = ( stat $path )[9];
   if ( defined $mtime ) { say "mtime is ok"; push @array, $mtime; }
   my $max = ( sort { $b <=> $a } @array )[0];
   return $max;
}


##</code><code>##

max_acm is 42
./perl5/lib/perl5/Prompt/Timeout.pm is ./perl5/lib/perl5/Prompt/Timeout.pm
max_acm is 42
./perl5/lib/perl5/WWW/Mechanize/GZip.pm is ./perl5/lib/perl5/WWW/Mechanize/GZip.pm
max_acm is 42
C:\Users\Fred\Desktop/alpaca/template_stuff/config1.pm is C:\Users\Fred\Desktop/alpaca/template_stuff/config1.pm
atime is ok
ctime is ok
mtime is ok
max_acm is 1465162519
C:\Users\Fred\Desktop/alpaca/template_stuff/html1.pm is C:\Users\Fred\Desktop/alpaca/template_stuff/html1.pm
atime is ok
ctime is ok
mtime is ok
max_acm is 1465162519