#!/usr/bin/perl

use strict;
use warnings;

package BBB;

use base 'AAA';

our $var = 'bbb';

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

1;