package P;
$A = 'something';

##</code><code>##

package main;

my $A = 123;
$::A = 456;

print ('package '.__PACKAGE__."\n");
print ('$A is '.$A."\n");
print ('our $A is '.our $A."\n");
print ('$::A is '.$::A."\n");
print ('$main::A is '.$main::A."\n");
print ('$main\'A is '.$main'A."\n");

##</code><code>##

package main
$A is 123
our $A is 456
$::A is 456
$main::A is 456
$main'A is 456