#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;

my $source = shift @ARGV;
my $prsr = XML::LibXML->new();
$prsr->keep_blanks(0);
my $doc = $prsr->parse_file($source);
my $top = $doc->getDocumentElement;
my @licenses = $top->getElementsByTagName('feature');

foreach my $attrib (@licenses) {
	my $name = $attrib->getAttribute('name');
	my $count = $attrib->getAttribute('count');
	print $name,":",$count,"\n";
}