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

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