warn "foo is $foo";

##</code><code>##

use constant DEBUG => 1;

...
warn "foo is $foo" if DEBUG;
warn "bar is $bar" if DEBUG > 2;
...