sub creaLog {
   my $self = shift;
   $self->mode=>'changed' ;
	 
}