#!/usr/local/bin/perl
use XML::DOM;

$doc = new XML::DOM::Document;

$root = $doc->createElement("person");
$doc->appendChild($root);

$comment = $doc->createComment("test");
$root->appendChild($comment);

$item = $doc->createElement("name");
$item->appendChild($doc->createTextNode("KONISHI Katuhiro"));
$root->appendChild($item);

$item = $doc->createElement("email");
$item->appendChild($doc->createTextNode('konishi@hauN.org'));
$root->appendChild($item);

print $doc->toString;
# $doc->printToFile("test.xml");