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

##</code><code>##

<?xml version="1.0"?>
<rootnode xmlns="my:name:space" version="1" creator="anti"
><emptynode value="abc"
 /><node name="foo"
>Hello, world!</node
></rootnode
>


##</code><code>##

<?xml version="1.0"?>
<rootnode xmlns="my:name:space" version="1" creator="anti">
 <emptynode value="abc" />
 <node name="foo">
  Hello, world!
 </node>
</rootnode>