foreach my $child ($obj->children()) {
    next unless $child->name eq 'page';
    foreach my $grandchild ($child->children()) {
      next unless $grandchild->name eq 'header';
      # code goes here
    }
  }