perl XML-XQL