>perl -MO=Deparse -e "$File::Find::prune= not $recurse && ($File::Find::dir ne $File::Find::topdir);"
$File::Find::prune = !($recurse && $File::Find::dir ne $File::Find::topdir);