Help for this page

Select Code to Download

Select or download this

for (readdir DIR) {
  next if $_ eq '.' or $_ eq '..';
  next unless -d $base . '/' . $_ or -f _;
  push @{ -d $base . '/' . $_ ? \@dirs : \@files }, $_;
}

Select or download this
```
.
```