opendir(FILES, $SAVE_DIRECTORY);
@allfiles = sort { (stat "$SAVE_DIRECTORY/$a")[9] <=> (stat "$SAVE_DIRECTORY/$b")[9] } (grep(!/^\.\.?$/,readdir(FILES)));
closedir(FILES);
foreach $file (@allfiles) {
   print "$file " . (stat "$SAVE_DIRECTORY/$file")[9] . "\n";
}
exit;