my $doc1 = XML::LibXML::Document->new('1.0', 'utf-8');
		
		my $root = $doc1->createElement("TestSummary");
		$root->setAttribute('Test'=> 'Sprint12');
		
		my %tags = (
			resultcount => $resultcount,
		    testcasecount => $testcasecount,
		);
		
		for my $name (keys %tags) {
		    my $tag = $doc1->createElement($name);
		    my $value = $tags{$name};
		    $tag->appendTextNode($value);
		    $root->appendChild($tag);
		}
		
		$doc1->setDocumentElement($root);
		print $doc1->toString();
		

##</code><code>##

<?xml version="1.0" encoding="utf-8"?>
<TestSummary some-attr="some-value"><resultcount>7</resultcount><testcasecount>9</testcasecount></TestSummary>