An idiom I learned from an ingy module, almost certainly Pegex, is:

use constant DEBUG => $ENV{MY_DEBUG};
# ...
DEBUG and print "something\n";
[download]

The benefit is that constant-folding means that if it's not in debug mode, the Perl interpreter will simply optimise the debugging code out entirely.