perl -MO=Deparse,-x,-p -e 'sub verbose() { 0 } print "guggug!\n" if verbose;'
sub verbose () { 0 }
'???';
-e syntax OK

##</code><code>##

perl -MO=Deparse,-x,-p -e 'sub verbose() { 0 } if(verbose){ print "guggug!\n"};'
sub verbose () { 0 }
'???';
-e syntax OK