use LWP::Simple; 
 use XML::Simple;
use Data::Dumper; 
use strict;
use warnings;
  
my $parser = XMLin("c:\\temp\\data.xml");
print Dumper($parser);

print $parser->{HttpSiteAddress} . "\n";
print $parser->{SiteAssets}->{asset}->{url}, "\n";
print $parser->{FragmentAssets}->{asset}->{url}->[1];