Select Code to Download

my  $foo  = 1;
our $foo = 2;
print $foo  ; # prints 2

our $foo  = 2;
my  $foo  = 1;
print $foo  ; # prints 1

no warnings;

...
package Bar;
no strict;
print 'Bar: '. $foo, "\n";   # $foo is undefined