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

##</code><code>##

my %options;
BEGIN {
    # process @ARGV, putting results in %options
}
use constant DEBUGGING => $options{debug};