opendir DIR, $dirprefix;
@allfiles =  sort { -M "$dirprefix/$a" <=> -M "$dirprefix/$b"} readdir DIR;
closedir DIR;