#!/usr/bin/perl

#  xml-libxml-ex1.pl      perl xml-libxml-ex1.pl file.xml  XML::LibXML & namespaces
# From http://www.perlmonks.org/?node_id=1173200  Re: XML::LibXML & namespaces by choroba on Oct 03, 2016 at 19:10 EDT

use warnings;
use strict;
use feature qw{ say };

use XML::LibXML;

my $dom = 'XML::LibXML'->load_xml(location => shift);
my $xpc = 'XML::LibXML::XPathContext'->new($dom);
my $rpt = 1;
$xpc->registerNs("ns$rpt", 'http://www.url.com/path/for/rpt');

my $nsdevices = "//ns$rpt:device";
my @devices = $xpc->findnodes($nsdevices);
say $_->getAttribute('timestamp') for @devices;

# This prints:
# 2016-01-01T00:00:00.000-00:00

__END__

##</code><code>##

<?xml version='1.0' encoding='utf-8'?>
<Notify xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://docs.oasis-open.org/wsn/b-2">
<NotificationMessage>
<Topic Dialect="http://docs.oasis-open.org/wsn/t-1/TopicExpression/Simple">TOPICNAME</Topic>
<ProducerReference>
<Address xmlns="http://www.w3.org/2005/08/addressing">address</Address>
<Metadata xmlns="http://www.w3.org/2005/08/addressing">
<ns2:MessageID xmlns:ns2="http://www.w3.org/2005/08/addressing">msgid</ns2:MessageID>
</Metadata>
</ProducerReference>
<Message>
<ns1:rpt xmlns:ns1="http://www.url.com/path/for/rpt">
<ns1:reportObject>
<ns1:device timestamp="2016-01-01T00:00:00.000-00:00">
</ns1:device>
</ns1:reportObject>
</ns1:rpt>
</Message>
</NotificationMessage>
</Notify>

##</code><code>##

2016-01-01T00:00:00.000-00:00