Help for this page

Select Code to Download

Select or download this

....
while (my $file = readdir(DIR)) {
...

    if ($file) {
    ...

Select or download this

...
while (my $file = readdir(DIR)) {
...
    }
}
...