Help for this page

Select Code to Download

Select or download this
```
if (-d $dir && !-l _) {

    ...

};
```

Select or download this

foreach (sort { lc($a) cmp lc($b) } readdir(DIR)) {
    push (@dir, "$dir\/$_") if (m/$non_include/);
};