Update:
Geez, I hit the wrong button, I didn't want to post, but since I did, I might as well add my $0.02

I think, if you wanted to, you could roll your own, if you already have some data structure in place.

Otherwise, XML::Writer seems like a great solution for what you're asking.

Unfortunatley, I don't have much else to say on the subject...

my $mouse = 'a betrayer';
[download]

--
Casey