tye's original suggestion can easilly be modified to use 1/0 instead of -d/undef for TRUE/FALSE values.... is that why you opted for his second (longer) suggestion?

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

-Blake