set_serverid {
    my $self = shift;
    if (@_) {
        $self->{SERVER} = shift;
    }
    else {
        die "No argument passed to set_serverid!\n";
    }
}

get_serverid {
    my $self = shift;
    $self->{SERVER};
}