$File::Find::prune= not $recurse and ($File::Find::dir ne $File::Find::topdir);