{ my $var; sub getter { $var }; sub setter { $var = shift }; }