set_serverid{

my $self=shift;
  if(@_)
     {$self->{SERVER} = shift}
 }

getserverid{

$self->{SERVER};
}

$serverid=getserverid();