Select Code to Download

package Subs;
our $Foo = 3;
sub foo { $Foo++; }
1;

use Subs;
Subs::foo();
print $Subs::Foo, "\n";

package Subs;
BEGIN {
...
our $Foo = 3;
sub foo { $Foo++ }
1;

use Subs;
foo();
print $Foo, "\n";