use Foo qw($foo);
print $foo;