Help for this page

Select Code to Download

Select or download this
```
print join "\n", sort @DirList;
```

Select or download this

print join "\n", sort {-M $a <=> -M $b} @DirList;