use strict;
use MyPack;
my $myString = $MyPack::a;
print $myString;

##</code><code>##

package MyPack;
require Exporter;
$a = "Read from Mypack"

##</code><code>##

package MyPack;
our $a = "Read from Mypack"