BEGIN {
  use Exporter();
  use vars qw(@EXPORT @ISA);
  @EXPORT = qw($var1);
  @ISA = qw(Exporter);
}
use vars @EXPORT;
$var1 = "1";