perl XML-Directory