Help for this page

Select Code to Download

Select or download this

use File::Find;

...

# use results here
print "$_\n" for @dirlist;