Select Code to Download

#pseudocode, of course
#!/usr/bin/perl
...

my $p = Parent->new(\%data);
my $c = $p->new_child("More data");

sub new_child {
     my $self = shift;
...
           more_data => $more_data
           }, "Child";
}