my $dc = XML::DOM::Lite::Document->new();
my $root = $dc->createElement("xml");

my $elem = $dc->createElement("A");
$elem->setAttribute("B", "C");
$root->appendChild($elem);
$dc->appendChild($root);

print $dc->xml();


Output:
=======
<xml>
  <A B="C" />
</xml>