my @files = sort { -M $a <=> -M $b } readdir SRC;