my $debug;
BEGIN { GetOptions('debug|d' => \$debug) or die }
use constant DEBUG => $ENV{DEBUG} || $debug;

##</code><code>##

use Thing;
my $obj = Thing->new;

##</code><code>##

use constant DEBUG => &main::DEBUG;