$r=XML::Generator::FromDTD::createFromDTD ("cookbook.dtd","cookbook");
print $r->cookbook (
    $r->recipe({serves=>"one"},
        $r->head("Breakfast burrito"),
        $r->ingredientlist (
            $r->ingredient (
                $r->food ({type=>"unspec", calories=>"unknown"}, 
                  [ "tortilla", "egg","hash browns","cheese","bacon"]),
            )
        )
    )
)