use strict;
use warnings;

use 5.010;
use utf8;

package A;
our $test = 42;
say ${A::test};
1;

say $test;