use strict;
use XML::Generator;
open (RPT, ">menu.xml");
my $gen = XML::Generator->new(
	'escape' => 'always', 'pretty' => 2);
my $xml = 
$gen->Menu(
	$gen->Course("Appetizers"),
	$gen->Items(
		$gen->Name("Soup"),
		$gen->Name("Salad")
	),
	$gen->Course("Entres"),
	$gen->Items(
		$gen->Name("Oysters"),
		$gen->Name("Pizza")
	)
);
print RPT "$xml";