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