有谁对XML::Simple::XMLout()比较熟悉的，能不能举个例子？

有谁对XML::Simple::XMLout()比较熟悉的，能不能举个例子？
比如，我想把我的机器上的所有mp3文件的信息（文件位置、mp3 tag里的标题、艺术家等等信息）存为一个XML文件，以便搜索，那么应该怎样用XML::Simple::XMLout()？

我现在写了mp3tagtest.pl：
require 'D:\\mp3insert.pl';

use File::Find;

find(\&wanted, "D:\\Music");

sub wanted
{
$file=$File::Find::name;
if(-f $file)
{
mp3insert::Mp3Insert($file);
}
}

还有mp3insert.pl：
package mp3insert;
use MP3::Tag;

sub Mp3Insert
{
open(MUSICLIST,">>D:\\musiclist.txt");
$file=$_[0];
if ($mp3=MP3::Tag->new($file)) {
($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
print MUSICLIST "<song>\n";
print MUSICLIST "<URL>$file</URL>\n";
print MUSICLIST "<title>$title</title>\n";
print MUSICLIST "<track>$track</track>\n";
print MUSICLIST "<artist>$artist</artist>\n";
print MUSICLIST "<album>$album</album>\n";
print MUSICLIST "<comment>$comment</comment>\n";
print MUSICLIST "<year>$year</year>\n";
print MUSICLIST "<genre>$genre</genre>\n";
print MUSICLIST "</song>\n";
print MUSICLIST "\n";
}
close MUSICLIST;
}

return 1;

要改的应该就是mp3insert.pl中的那些print语句，那应该怎么改，才能用XML::Simple::XMLout()生成XML文件？

[color=red]ASP...
[color=red]ASPN上有个询问的帖子你看看[/color][u]http://aspn.activestate.com/ASPN/Mail/Message/perl-xml/1878272[/u]
[color=ff00ff]这个文章参考一下[/color][u]http://template-toolkit.org/pipermail/templates/2004-August/006466.html[/u]
[color=0000ff]这个.....其实这两本书可以参考一下:<<即时应用Perl模块>><<XML与PERL、Python和PHP编程指南 >>[/color]