package Foo;
use Exporter;
use vars qw/@ISA @EXPORT/;
push @ISA, "Exporter";
push @EXPORT, '$foovar';
$Foo::foovar = 'hallo';