sub DEBUG() { 1 }
...
print "whatever" if DEBUG;