use XML::LibXML;
$xml = 'test.xml';
my $parser =XML::LibXML->new();
eval{
$doc = $parser->parse_file($xml) or die;
};
if($@){
return;
}
else{
$v = $doc->findvalue('/alto/Description/MeasurementUnit');
print "value\t".$v;
}