use XML::DOM;
                                                                                
my $d = XML::DOM::Document->new('Test');
my $e = $d->createElement('Foo');
$e->setAttribute('foo',0);
$d->appendChild($e);
print $d->toString();