Help for this page

Select Code to Download

Select or download this

map {
     ($_ ne '.') && ($_ ne '..') &&
     push @{ -d "$base/$_" ? \@dirs : \@files }, $_
} (readdir DIR);