Select Code to Download

foreach my $accessor (@object_properties) {
  no strict 'refs';
...
    $self->{$accessor};
  };
}