Help for this page
recurse_dir ($_) if -d;
while (readdir D) { if (-d) { ... process_file($_) if -f } }