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