use strict;
my $x = 5;
print "\$x in main package=$x\n";
package other;
print "\$x in other package=$x\n";