package test;
use strict;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw($x);

my $x = "hi";
__END__

##</code><code>##

use strict;
use test;
print $x