my $xml = XML::Parser->new(Style => 'Tree');
my $xmltree = $xml->parsefile($filename);
my $toolbar = $xmltree->[1];

my @buttons = ();

my $count = scalar @{$toolbar};
for(my $i = 0; $i < $count-1; $i++) {
   next unless $toolbar->[$i];
   next if ref $toolbar->[$i];

   if(lc($toolbar->[$i]) eq 'button') {
      my $buttonobj = $toolbar->[++$i];
      # mehr code     
      my $count = scalar @{$buttonobj};
      for(my $i = 0; $i < $count; $i++) {
         next unless $buttonobj->[$i];
         next if ref $buttonobj->[$i] eq 'HASH';

         if(lc($buttonobj->[$i]) eq 'image') {
             my $imageobj = $buttonobj->[++$i];
             # mehr code
             last; # only one image
         }
      }
      # mehr code
   } elsif(lc($toolbar->[$i]) eq 'seperator') {
      my $seperatorobj = $toolbar->[++$i];
      # mehr code
   }
}