Select Code to Download

sub new {
    return bless {}, shift;
...
    push @{ $self->{sub_objects} }, $sub_obj;
    return $sub_obj;
}

my $parent = Obj->new;
my $sub_obj_1 = $parent->build;
...
for (@{ $parent->{sub_objects} }){
    print $_->name . "\n";
}