use constant DEBUG => 0;
print STDERR "foo = $foo\n" if DEBUG;

##</code><code>##

use Readonly;
Readonly::Scalar $DEBUG => 0;
print STDERR "foo = $foo\n" if $DEBUG;