use constant DEBUGGING => grep $_ eq "-d", @ARGV;