Script para obtener fecha

[abcdefghi]

Mucho más fácil en ksh, pero ahí va:

Código Perl:

if (opendir(my $handle, '.')){
     my @last = (0,'');
     while ($file = readdir($handle)) {
         $_ = (stat($file))[9];
         if ($_ > $last[0]) {
              @last = ($_,$file);
         }
     }
     print "${last[1]} modificado: ".scalar localtime($last[0]);
     closedir $handle;
}