my %files;

opendir(DIR,'.');
while (readdir(DIR)) {
$files{$_} = -M $_; if !-d $_;
}
closedir(DIR);
foreach(sort {$files{$a}<=>$files{$b}} keys %files){
if (open(TXT,$_)) {
print while (<TXT>);
close(TXT);
}
}