sub new_child {
     my $self = shift;
     my $more_data = shift;
     bless {
           param1 => $self->{param1},
           more_data => $more_data
           }, "Child";
}