更新日時順にソートしてからリネームするperlスクリプト

こんな感じ?