open inFILE, "svs.conf" or die $!;
@lines = <inFILE>;
close inFILE;
open outFILE, ">svs.conf" or die $!;
for $i (0 .. $#lines) {
   ($param, $value) = split(/\=/, $lines[$i]);
   if ($param eq 'be_address') {
      $value = $new_value;
      print outFILE $param." = ".$value;
   }
   else {
      print outFILE $lines[$i];
   }
}
close outFILE;