package Foo; our $FOO = 10; our $BAZ = 30; sub other_meth { } 1;