Select Code to Download

$obj->{field};

$obj->field();

my @FIELDS = qw( a b c d );  # Put your field names here
foreach my $field (@FIELDS) {
...
        return $self->{$field};
    };
}