package one;
my $x= "hi";
package two;
print "$x\n";
# prints "hi"