sub make_private_var_with_accessors
{
	my $var;
	(
		sub { my $val = $var; $val }, # getter
		sub { $var = shift } # setter
	)
}

my($get,$set) = make_private_var_with_accessors();
$set->(42);
print "=".$get->()."\n";