Select Code to Download

int foo, bar, baz;

...
{
    this.baz = baz;
}

foreach my $field (qw( foo bar )) {
    no strict 'refs';
...
        $self->{$field};
    };
}