Help for this page
$File::Find::prune= not $recurse and ($File::Find::dir ne $File::F +ind::topdir);
$File::Find::prune= (not $recurse and ($File::Find::dir ne $File:: +Find::topdir));