perl XML-Generator