#!/ms/local/perl5.8.0/bin/perl -w

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

my $bbtmpdata = "bb.xml";

my $xml = new XML::Simple;
my $bbevents = $xml->XMLin($bbtmpdata, forcearray=>['server']);
print  Dumper($bbevents);