Select Code to Download

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

# Could be wrapped in a BEGIN block if you wanted to
foreach my $field (qw/ foo bar baz /) {
...
        $self->{$field};
    };
}