use constant DEBUGGING => (grep $_ eq "-d", @ARGV) ? 1 : 0;