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


my $stuff=XMLin(undef,KeyAttr=>['server']);


print Dumper($stuff);