#!/usr/bin/perl -W
#
#

use XML::DOM;

my $doc = XML::DOM::Document->new;

my $root = $doc->createElement("root");
my $xmldecl = $doc->createXMLDecl('1.0');
my $body = $doc->createElement("anElement1");

$root->appendChild($body);

for ($i = 0; $i < 5; $i++) {
	my $h1 = $doc->createElement('anElement2');

	$h1->setAttribute("anAttribute", "value $i of my attribute");

	$body->appendChild($h1);

	my $text = $doc->createTextNode("This is the number $i text node");

	$h1->appendChild($text);

}

print $xmldecl->toString . "\n";
print $root->toString . "\n";