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();