#tempo2.pl
use strict;
use MyPack;
my $myString = $MyPack::aa;
print $myString;

##</code><code>##

#MyPack.pm
package MyPack;
use strict;
$MyPack::aa = "Read from Mypack"