use strict; use warnings; package Debug; our $DEBUG; package MyPkg; print $DEBUG if $DEBUG;