Oops, need to specify the path when using stat():

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

The number at the end is the modify date in Unix epoch format. You may want to translate it to a more readable format, but I can't remember how to do that right now (WAY too much Java this week).

Update: I think the module to convert the epoch date to a more useable one is Date::Manip, if I recall correctly.

Hot Pastrami