#!/usr/bin/perl

use strict;
use warnings;

package AAA;

our $var = 'aaa';

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

1;