#!/usr/opt/perl5/bin/perl -sw

use XML::Twig;
my $twig = XML::Twig->new();
$twig->parsefile($xmlfile);
my $root = $twig->root;
foreach my $i ($root->get_xpath('//Party/Relation_daf1bb84-658a-4bad-aff7-86d5fc755101/Party_2d205fbf-cadd-4475-9d51-a8a8aea1c625/')
) {
   print $i->{att}->{InvType};
   foreach my $j ($i->get_xpath('../Producer/CarrierAppointment/CompanyProducerID')) {
      print " " . $j->{att}->{Count};
   }
   print "\n";
}