Select Code to Download

   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");