Select Code to Download

use strict;
use warnings;
use 5.014;
...
   my $max = ( sort { $b <=> $a } @array )[0];
   return $max;
}

max_acm is 42
./perl5/lib/perl5/Prompt/Timeout.pm is ./perl5/lib/perl5/Prompt/Timeou
+t.pm
max_acm is 42
...
ctime is ok
mtime is ok
max_acm is 1465162519