opendir(LOGS,".");
sort @val = map { -M $_ } grep(/.*\.log/,readdir(LOGS));
closedir(LOGS);
print join("\n",@val);