use foo;

print $foo::foo,"\n";
print $foo::bar,"\n";

foo::set_foobar();

print $foo::foo,"\n";
print $foo::bar,"\n";