use LWP::Simple; 
 use XML::Simple;
use Data::Dumper; 
use strict;
use warnings;

my $xml = new XML::Simple (KeyAttr=>[]);



 
my $parser = $xml->XMLin("c:\\temp\\data.xml");
print Dumper($parser);



foreach my $e (@{$parser->{FragmentAssets}->{asset}})
{
	print $e->{url}, "\n";
	print "\n";
}