Select Code to Download

set_serverid {
    my $self = shift;
...
    my $self = shift;
    $self->{SERVER};
}

set_serverid {
    my ($self,$id) = @_;
...
        die "No argument passed to set_serverid!\n";
    }
}

sub get_serverid  { $_[0]->{SERVER} }
sub set_serverid  { $_[0]->{SERVER} = $_[1] }

sub get_requestip { $_[0]->{REQIP} }
sub set_requestip { $_[0]->{REQIP} = $_[1] }