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