package ConfigThisJunk;
use strict;
use warnings;
use Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( DEBUG );

use constant DEBUG => 1;

1;

##</code><code>##

use strict;
use warnings;
use ConfigThisJunk qw( DEBUG );

my $x = 123;
print("debug: x is $x\n") if DEBUG;

##</code><code>##

package ConfigThisJunk;
use strict;
use warnings;
use Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( DEBUG );

my $DEBUG = 1;

sub DEBUG {
   if (@_) { $DEBUG = shift; }
   return $DEBUG;
}

1;

##</code><code>##

use strict;
use warnings;
use ConfigThisJunk qw( DEBUG );

my $x = 123;
print("debug: x is $x\n") if DEBUG;