package Foo;

use vars qw( $foo );

$foo = 1;