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

##</code><code>##

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