#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;
use XML::LibXML::XPathContext;

my $file =  "./incident.xml";

my $parser = XML::LibXML->new(XML_LIBXML_RECOVER => 2);
   $parser->recover_silently(1);

my $dom    = $parser->load_xml( location => $file );
my $root   = $dom->getDocumentElement();
my $xpc    = XML::LibXML::XPathContext->new($root);

##############################################
# If we have an incident ticket reference get info from that ticket.
	
my $inc_node = $xpc->findnodes('/upload/incident[number/text() = "INC902531"]');

my $service_restoration_time = $xpc->findvalue( "./u_service_restoration_time", $inc_node );
my $assignment_group = $xpc->findvalue( ".//assignment_group/\@display_value", $inc_node );

# etc...

print $service_restoration_time . "\n" ;
print $assignment_group . "\n" ;

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<unload unload_date="2010-03-17 13:02:24">
<incident action="INSERT_OR_UPDATE">
<opened_at>2009-12-15 14:29:55</opened_at>
<closed_at>2009-12-21 05:00:21</closed_at>
<u_problem_summary/>
<u_item>none</u_item>
<business_duration>1970-01-03 05:30:05</business_duration>
<category>none</category>
<number>INC902550</number>
<u_caller_location/>
<u_service_restoration_time>2009-12-15 23:01:17</u_service_restoration_time>
<u_close_code>Service Restored</u_close_code>
<u_service_loss_time>2009-12-15 14:29:55</u_service_loss_time>
<u_user_issue>Software Issue/Bug</u_user_issue>
<element_id>92becbd70a0a140b0187537b8516f18c</element_id>
</unload>