package A;
package B;
$B::d = 1;
package C;
package D;
print $B::d;