$ perl -MO=Deparse -e 'sub foo(){3};print foo()'
print 3;

##</code><code>##

use constant DEBUGGING => 0;

# later

if (DEBUGGING) {...}

##</code><code>##

local *Some::Package::DEBUGGING = sub {0};