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

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

my $writer = new XML::Writer(OUTPUT => $output, NEWLINES => 1);
$writer->xmlDecl();
$writer->startTag("rootnode", "xmlns" => "my:name:space", "version" => "1", "creator" => "anti");
$writer->emptyTag("emptynode", "value" => "abc");
$writer->startTag("node", "name" => "foo");
$writer->characters("Hello, world!");
$writer->endTag("node");
$writer->endTag("rootnode");
$writer->end();
$output->close();