Select Code to Download

<fruits>
  <average-color>purple</average-color>
...
    <average-color>greenish</average-color>
  </fruit>
</fruits>

  'average-color' => sub {
      if ($_[2]->[-1] eq 'fruit') {
...
        return undef;
      }
   },

  'tag' => sub {
     return '@'.$_[0] => $_[1]->{_content};
  },