use strict;

my $family;
my @jewels;

use base qw(Exporter);
use vars qw(@EXPORT @EXPORT_LEXICALS);
@EXPORT = qw( foo bar $blah );
@EXPORT_LEXICALS = ( \$family, \@jewels );