If you are wanting to use the CGI module to produce XML this little script may get you started in the right direction. CGI wasn't made to create XML, but this seems to work fine.

use strict;
use CGI::Pretty qw(book chapter); # for pretty XML
my $c = new CGI;

print $c->book(
    {-title=>"Programming Perl", -authors=>" Larry Wall, Tom Christian
+sen, Jon Orwant"},
    $c->chapter({-number=>1},"An Overview of perl"),
    $c->chapter({-number=>2},"Bits and Pieces"),
    $c->chapter({-number=>3},"Unary and Binary Operators"),
);
[download]

output:

<book title="Programming Perl" authors=" Larry Wall, Tom Christiansen,
+ Jon Orwant">
    <chapter number="1">
        An Overview of perl
    </chapter>
     <chapter number="2">
        Bits and Pieces
    </chapter>
     <chapter number="3">
        Unary and Binary Operators
    </chapter>
</book>
[download]

-Silent11