perl 读取xml文件，如何来写的

<?xml version="1.0" ?>
<books>
  <book>
    <name>perl </name>
    <cn>Learning Perl </cn>
    <date>2006-01 </date>
  </book>
  <book>
    <name>shell</name>
    <cn>Bash Shell</cn>
    <date>2006-02</date>
  </book>
</books>


想输出成：
name|cn|date|
perl|Learning Perl|2006-01|
shell|Base Shell|2006-02|

请教了，刚接触perl
看到相关资料说用XMLarser可以，但没试出来

    这么简单的XML，用XML::Simple就可以了，一个函数搞定。