Help for this page

Select Code to Download

Select or download this

my @files = grep { warn "Checking '$_' for -d:" . -d $_; !-d $_} readd
+ir(DIR);