Select Code to Download

sub property {
  my $self=shift;
...
     return $self->{property};
  }
}

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