package Test;

use constant DEBUG => 0;# There is also one in the main package, for turning all on


sub new {
print "Test->new(@_)" if (DEBUG || main::DEBUG);

...
}