Win8 Strawberry 5.30.3.1 (64)  Mon 03/22/2021  6:33:58
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

package Bar {
    # package-globals can always be accessed in fully-qualified form
    $main::foo = "hi, i'm assigning this in " . __PACKAGE__ . "\n";
    }

print "A: this is being printed from default package ", __PACKAGE__, "\n";

# global $foo not yet declared in main: must access fully-qualified
print "B: i'm accessing this from ", __PACKAGE__, ": $main::foo";

our $foo;  # declare global $foo in package main
print "C: i'm accessing this from ", __PACKAGE__, ": $foo";

^Z
A: this is being printed from default package main
B: i'm accessing this from main: hi, i'm assigning this in Bar
C: i'm accessing this from main: hi, i'm assigning this in Bar