use constant DEBUG => 1;
print "Some useful information"
  if (DEBUG);