package M;

{ my $x = 42;
  sub get_x { return $x; }
  sub set_x { return $x = $_[0]; }
  }

my $y = 1729;
sub cannot_access_x { return $y; }

1;