use constant DEBUG => 1; print "this is debug" if DEBUG;