#!/usr/bin/perl

use strict;
use warnings;

package AAA;

our $var = 'aaa';

warn $AAA::var;
warn $BBB::var;

1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

package BBB;

use base 'AAA';

our $var = 'bbb';

warn $AAA::var;
warn $BBB::var;

1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use BBB;

warn $AAA::var;
warn $BBB::var;

##</code><code>##

aaa at AAA.pm line 10.
Use of uninitialized value $BBB::var in warn at AAA.pm line 11.
Warning: something's wrong at AAA.pm line 11.
aaa at BBB.pm line 12.
bbb at BBB.pm line 13.
aaa at CCC.pl line 8.
bbb at CCC.pl line 9.