eval{ $CY1->set_value("INI","lf2"); };
ok( $@ eq "Can't Change Internal Parameter" , "Catch attempted changing of internal parameter");

##</code><code>##

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;
}