Select Code to Download

sub field {
    my $self = shift;
    $self->{field} = $_[0] if @_;
    ...
}

sub field {
    my ($self,$val) = @_;
    $self->{field} = $val if defined $val;
    ...
}