use Subs;
Subs::foo();
print $Subs::Foo, "\n";