# at the top
use constant DEBUG => $ENV{DEBUG};
...
# later
printDebug("some message") if DEBUG;