use vars ();
  sub import {
    my $pkg = caller;
    no strict 'vars';
    vars::->import(map { /(.)(.*)/; "$1$pkg\::$2" } qw/ $var1 $var2 $etc /);
  }

##</code><code>##

  use vars ();
  sub import {
    __PACKAGE__->export_to_level(1, @_);

    my $pkg = caller;
    no strict 'vars';
    vars::->import(map { /(.)(.*)/; "$1$pkg\::$2" } qw/ $var1 $var2 $etc /);
  }