package mod1;
use strict;
use vars qw(%line);
use Exporter();
# The next two lines are vital for exporting.
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(%line);
BEGIN {
  %line = (this => "line");
}
1;

##</code><code>##

package mod2;
use strict;
use vars qw(%line $time);
use Exporter();
# Same with this one.
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(%line $time);
BEGIN {
   %line = (that => "line2");
   $time = time();
}
1;

##</code><code>##

use strict;
use vars qw(%line $time);
use mod1 qw(%line);
use mod2 qw(%line $time);

# This will print:
# that,line2
print join(",",%line),"\n";