use strict; use warnings; use Foo; Foo::init(); print $Foo::bar;