Select Code to Download

sub foo 
{
...
    $self->{foo} = shift if @_;
    $self->{foo};
}

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