use constant DEBUG => 1;

print "Test something" if (DEBUG);