package MyVars;
use base qw(Exporter);
use vars qw(@EXPORT_OK $bar);
@EXPORT_OK= qw($bar);
$bar="I AM BAR.";
1;