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