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

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

etc