Help for this page

Select Code to Download

Select or download this

my @all = glob '* */';
@dirs = grep m(/$), @all;
# etc.