use strict;
use warnings;

package B;

our $foo = 3;

package main;

print $B::foo, "\n";