#!/usr/bin/perl
use strict;
use warnings;

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

my $xml_Event = XMLin('EventDescription.xml');

warn "$xml_Event->{Event};