package A1;

sub import
{
  A->export_to_level(1, @_);
}

##</code><code>##

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

##</code><code>##

use Exporter::Easiest q( EXPORT => $var1 );
$var1 = "1";