Select Code to Download

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

use constant DEBUGGING => 0;

# later

if (DEBUGGING) {...}

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