package Module;
my $x;
sub set { $x = shift }
sub get { $x }
1;