$ perl -MO=Deparse,-p,-q -we '$File::Find::prune= not $recurse and ($File::Find::dir ne $File::Find::topdir);'
Useless use of string ne in void context at -e line 1.
Name "File::Find::prune" used only once: possible typo at -e line 1.
Name "File::Find::topdir" used only once: possible typo at -e line 1.
Name "File::Find::dir" used only once: possible typo at -e line 1.
Name "main::recurse" used only once: possible typo at -e line 1.
BEGIN { $^W = 1; }
(($File::Find::prune = (!$recurse)) and ($File::Find::dir ne $File::Find::topdir));
-e syntax OK