Help for this page
package B; our $d = 1;
package A; package B; ... package C; package D; print $B::d;