#!/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";
	
	}
 }

##</code><code>##

$VAR1 = {
          'SchemaVersion' => '1.0',
          'Layer2Details' => {
                             'Device' => [
                                         {
                                           'DeviceName' => 'LWL-H91-CW-4-5-4.bc.de.bic',
                                           'DeviceType' => 'C2950G-24',
                                           'IPAddress' => '148.192.59.254',
                                           'Neighbors' => {
                                                          'Neighbor' => [