#! /usr/bin/env perl
package A;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw (sub1 $var);
our %EXPORT_TAGS = (all => [ qw(sub1 $var) ]);

our $var = 7;

sub sub1 {
  print "this\n";
}

1;

##</code><code>##

#! /usr/bin/env perl

use strict;
use warnings;

use lib '.';
require A;
A->import (':all');

sub1();
print $var . "\n";

##</code><code>##

#! /usr/bin/env perl

use strict;
use warnings;

use lib '.';
use A ':all';

print $var . "\n";