You can use the XML::Writer module to accomplish your task.

Hope this helps,,,

Aziz,,,

NAME
       XML::Writer - Perl extension for writing XML documents.

SYNOPSIS
         use XML::Writer;
         use IO;

         my $output = new IO::File(">output.xml");

         my $writer = new XML::Writer(OUTPUT => $output);
         $writer->startTag("greeting",
                           "class" => "simple");
         $writer->characters("Hello, world!");
         $writer->endTag("greeting");
         $writer->end();
         $output->close();