get-proj-ver

#!/usr/bin/perl

use strict;
use warnings;
use XML::XPath;

my $root = XML::XPath->new(filename => $ARGV[0]);
for my $node ($root->find('//project/version/text()')->get_nodelist) {
  print($node->getData, "\n");
}