use XML::Trivial;
use strict;
use warnings;
my $obj = XML::Trivial::parse('<?xml version="1.0" encoding="ISO-8859-
+1" ?> 
<PayoneerResponse>
<Echo>
<Status>000</Status> 
<Description>Echo Ok - All systems are up.</Description> 
</Echo>
</PayoneerResponse>');
print $$obj{PayoneerResponse}{Echo}{Status}->ts;
[download]