package Test;

my %contents;

sub new{
	my( $class, $value ) = @_;
	my $self  = bless \rand, $class;
	$contents{ $self  } = $value;
	return $self;
}

sub content : lvalue {
	my( $self ) = shift;
	$contents{ $self };
}

1;