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; print $n; bar(); print $n; bar(); sub bar { $n++; } } foo(); foo(); #output 1211