sub property {
  my $self=shift;
  if (@_) {
     $self->{property}=shift;
     return $self;
  } else {
     return $self->{property};
  }
}

##</code><code>##

print "Property: @{[$obj->property]}\n";