# Assumes 32-bit timestamps.
print map { substr($_, 4) . "\n" }
      sort
      map { pack('Na*', (stat($_))[9], $_) } @DirList;