Select Code to Download

package foo;
our $n = 1;
...
package main;

print "n = ", $foo::n , $/; # n = 1

package foo;
my $n = 1;
...
package main;

print "n = ", $foo::n , $/; # nothing

sub foo {
    my $n = 1;
...
foo();

#output 1211