# Bar.pm package Bar; use strict; use warnings; sub bar { Foo->foo } 1;