package Foo;
my $i;
sub get { $i }
sub set { $i = shift; }
1