sub spawn
{
   my $this=shift or die;
   my $class=ref($this) || $this;
   my $self = { };
   bless $self,$class;
   $self->{parent}=$self || die;
   $self->{mold}=$self || die;
   $self->init;
   return($self);
}