#!/usr/bin/perl

use XML::Simple ;

my $xs1 = XML::Simple->new(); 

my $breakfast_menu = $xs1->XMLin("test.xml"); 

foreach my $key (keys (%$breakfast_menu)){ 
    print "$key --> $breakfast_menu->{$key}->{name}\n" ;
}