Help for this page
push @{ $Dad->children }, new child_t(type=>"Flower Child");
push @{ $Dad->children }, child_t::new('child_t','type',"Wild Child") +;
push @{ $Dad->children }, child_t->new(type=>"Natural Child");