#!/usr/bin/perl

use strict;
use warnings;

our $foo = 123;

package bar;

print $main::foo;
print $foo