package P;
$A = 'something';

##</code><code>##

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

##</code><code>##

package P;
our $A = 'something';