push @{ $Dad->children }, new child_t(type=>"Flower Child");

##</code><code>##

push @{ $Dad->children },  child_t::new('child_t','type',"Wild Child");

##</code><code>##

push @{ $Dad->children },  child_t->new(type=>"Natural Child");