package P;
our $A = 'something';