{
  package a;
  sub new {
    my $class = shift;
    my $self = {};
    bless $self,$class;
    return $self;
  }
  sub avalue {
    my $self = shift;
    $self->{avalue} = shift if @_;
    return $self->{avalue};
  }
}

my $obj = "a"->new();
$obj->avalue(10);           # set
print $obj->avalue, "\n";   # get