Help for this page
perl -MO=Deparse,-p yourscript.pl
my($c); ($c = (&func() ? say("$c found!") : say('None!')));