package P;
$P::A = 'something';