package Foo;
use vars qw( $foo );

$foo = 3;

##</code><code>##

use Foo;
print $Foo::foo;