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");