my $pkg = (caller)[0];
no strict;
warn("${$pkg::DEBUG} in $pkg"); # see what it gets