#!/usr/bin/perl -w
#
use strict;
use XML::Simple;
use Data::Dumper;

my $xmlfile = "e:/topo.xml";

my $ref = eval { XMLin($xmlfile) };



if ($@){
	print "XML Read ERROR";
 } else {		

	foreach my $item (@{$ref->{Layer2Details}}){
		print $item->{IPAddresse}, "\n";
	
	}
 }