Help for this page

Select Code to Download

Select or download this
```
while ($name = readdir(ORIG)){
```

Select or download this

while (defined($name = readdir(ORIG))){

Select or download this
```
my @Filenames = readdir ORIG;
```