BEGIN {
use strict;
use warnings;
  use vars qw
  (
@ISA @EXPORT $var1 %var2 @var3
  );

  require Exporter;
  require AutoLoader;

@ISA    = qw(Exporter AutoLoader);
@EXPORT = qw(sub1 sub2 $var1 %var2 @var3);
}
# ...