{
	package PrivateVariable;
	sub new
	{
		my $pkg = shift;
		my $var;
		bless {
			get => sub { my $val = $var; $val },
			set => sub { $var = shift },
		}, $pkg
	}
	sub get { $_[0]->{get}->() }
	sub set { $_[0]->{set}->($_[1]) }
}

my $pv = new PrivateVariable;
$pv->set(666);
print "=".$pv->get()."\n";