Help for this page
package P; $A = 'something';
package P; $P::A = 'something';
package P; our $A = 'something';