package Foo;
use base 'Exporter';
use vars qw( @ISA @EXPORT_OK $foo );
@EXPORT_OK = qw( $foo );

$foo = 3;