For variables you would want to use Exporter for the subroutines you would want to use AutoLoader

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);
}
# ...
[download]

You may or may not need to use "BEGIN". What I do is drop AutoLoader and just use Exporter. Because an object/OO can have all its methods in the object variable and you can pass that around with exporter instead of autoloader.

Update: Another way is to just call the subroutine with the class it was in. Because if you have required it in one part of the currently running script it should still be loaded package1::sub1(); and for variables you can use this in the package our $var1; or use vars qw( $var1 ); is the same. Then call variables like $package1::var1