use strict;
use warnings;

use IO::File;
use XML::Writer;

my $output = IO::File->new('>output.xml');
my $writer = XML::Writer->new(OUTPUT => $output);

$writer->xmlDecl('UTF-8');
$writer->doctype('xml');
$writer->startTag('xml');

$writer->startTag('bar');
   $writer->startTag('name');
   $writer->characters(' TEST ');
   $writer->endTag('name');

   $writer->comment(' PDP Status ');

   $writer->startTag('type');
   $writer->characters(' Foo ');
   $writer->endTag('type');
$writer->endTag('bar');

$writer->endTag('xml');
$writer->end();
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)