Help for this page

Select Code to Download

Select or download this

while (defined($file = readdir(PARSEDIR))) {
    next if ($file eq "." || $file eq ".." || !-r $dir);
    ### [*snip*]
}