Select Code to Download

my $object = ....;
$object->field1 = 2;
my $d = $object->field1;
# ...

my $object = ....;
$object->set("field1",2);
my $d = $object->get("field1");

for my $field ($object->fields) {
  print $object->$field();
}