>>86
9月かよｗ

134行目
旧 : foreach (sort @dir) {
新 : foreach (sort { $b cmp $a } @dir) {