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


my $stuff=XMLin();


print Dumper($stuff);



##</code><code>##

$VAR1 = {
          'server' => {
                      'location' => 'atlanta',
                      'name' => 'cns04-fs16',
                      'event' => {
                                 'name' => 'diskname >

            online


         6.43 days
         10.10.10.10
         yellow
         Thu Mar 30 15:03:16 EST 2006
         Disk on cns04-fs16 at WARNING level

            yellow
            /mail/vol/cns04-fs16 (93%) has reached the defined disk space WARNING level (92%)




      titan
      atlanta

         Storage Servers
         Bluearc Servers


         basys

            online


         6.44 days
         10.10.10.10
         yellow
         Thu Mar 30 15:05:12 2006


            yellow
            node 1 is in status (notUp)


            yellow
            TITANPC-2 is in status (notUp)


            yellow
            EVS006 is in status (offLine)



'
                               },
                      'grouping' => {
                                    'secondary' => 'Mail Filers',
                                    'primary' => 'Storage Servers'
                                  }
                    }
        };

##</code><code>##

<name>disk</ name >

##</code><code>##

<name>disk</name>

##</code><code>##

$VAR1 = {
          'server' => {
                      'titan ' => {
                                  'location' => 'atlanta',
                                  'grouping' => {
                                                'secondary' => 'Bluearc Servers',
                                                'primary' => 'Storage Servers'
                                              },
                                  'event' => {
                                             'sparedata' => {},
                                             'entry' => [
                                                        {
                                                          'color' => 'yellow',
                                                          'desc' => 'node 1 is in status (notUp)'
                                                        },
                                                        {
                                                          'color' => 'yellow',
                                                          'desc' => 'TITANPC-2 is in status (notUp)'
                                                        },
                                                        {
                                                          'color' => 'yellow',
                                                          'desc' => 'EVS006 is in status (offLine)'
                                                        }
                                                      ],
                                             'received_by' => '10.10.10.10',
                                             'name' => 'basys',
                                             'state' => {
                                                        'name' => 'online',
                                                        'data' => {}
                                                      },
                                             'received_at' => 'Thu Mar 30 15:05:12 2006',
                                             'length' => '6.44 days',
                                             'color' => 'yellow'
                                           }
                                },
                      'cns04-fs16' => {
                                      'location' => 'atlanta',
                                      'grouping' => {
                                                    'secondary' => 'Mail Filers',
                                                    'primary' => 'Storage Servers'
                                                  },
                                      'event' => {
                                                 'sparedata' => 'Disk on cns04-fs16 at WARNING level',
                                                 'entry' => {
                                                            'color' => 'yellow',                                                            'desc' => '/mail/vol/cns04-fs16 (93%) has reached the defined disk space WARNING level (92%)'
                                                          },
                                                 'received_by' => '10.10.10.10',                                                 'name' => 'disk',
                                                 'state' => {
                                                            'name' => 'online',
                                                            'data' => {}
                                                          },
                                                 'received_at' => 'Thu Mar 30 15:03:16 EST 2006',
                                                 'length' => '6.43 days',
                                                 'color' => 'yellow'
                                               }
                                    }
                    }
        };