TIMTOWTDI

The following makes the variable $Debug::DEBUG available as $DEBUG for the rest of the file

use strict;
use warnings;

package Debug;

our $DEBUG;

package MyPkg;

print $DEBUG if $DEBUG;
[download]

but I'd rather use a constant.