package foo;
our $n = 1;

package main;

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

##</code><code>##

package foo;
my $n = 1;

package main;

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

##</code><code>##

sub foo {
    my $n = 1;
    print $n;
    bar();
    print $n;
    bar();
    sub bar {
        $n++;
    }
}

foo();
foo();

#output 1211