Select Code to Download

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

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

use constant DEBUG => &main::DEBUG;