package Foo;

use Exporter;
use vars qw/@ISA @EXPORT/;

@ISA = qw(Exporter);
@EXPORT = qw(*foovar);

$foovar = 'old';