opendir(LOGS, '.') or die "Can't open directory: $!"; 
print join("\n", sort map { -M $_ } grep { /\.log/ } readdir(DIR));
closedir(LOGS);