请教方家:计算xml文件中某元素的总和及平均值

请教方家:计算xml文件中某元素的总和及平均值
计算此xml文件中price元素的总和及平均值.
我见过其它语言的sax版本,如何用perl达到同样效果?
请方家赐教!

<?xml version="1.0"?>
<!DOCTYPE -------------------------->
<DataSet>
<Data1>
<book>book1</book>
<price>55</price>
</Data1>
<Data2>
<book>book2</book>
<price>66</price>
</Data2>
<Data3>
<book>book3</book>
<price>77</price>
</Data3>
</DataSet>