#! /usr/bin/perl

use XML::Simple ;

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

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

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