sub set_value{
  my ($self,$section,$para,$value)=@_;
  croak"Can't Change Internal Parameter" if $section~=/^INI|CM$/i;
  croak"Missing arguments" if scalar @_ < 4;
  croak"Non-Existent section" if !exists $self->{$section};
  croak"Non-Existent parameter" if !exists $self->{$section}->{$para};
  $self->{$section}->{$para}->[0]=$value;
}