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