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