Select Code to Download

$root_ns = "http://www.xxxx.com/yyy";
...
   $root_ns => 'ROOT-NS',
   $data_ns => ''
};

$xml = XML::Writer->new(DATA_MODE => 1, DATA_INDENT => 2, NAMESPACES =
+> 1, PREFIX_MAP => $prefix_map);

$xml->startTag([[$data_ns, 'data']]);
$xml->dataElement('test', 'ok');
$xml->endTag();