Zápis do XML

Čuss na internete som si našiel script a trochu som si ho upravil :
<?
$dom = new DOMDocument("1.0", "utf-8");
$elements = $dom->CreateElement("data");
$element = $dom->CreateElement("Subory");
$element->setAttribute("NazevSouboru", false);
$Atribname = $element->getAttributeNode("NazevSouboru");
$Atribname->value = $filename;
$elements->appendChild($element);
$dom->appendChild($elements);
$dom->save("patchlist.xml");
?>
a XML vyzera takto:
<?xml version="1.0" encoding="utf-8"?>
<data><Subory NazevSouboru="patch" /></data>
ale problem je v tom že v $filename su ešte subory: auto, all, make, patch ... a ono to stale vypisuje jen ten poslednej...
Potrebujem nejak ten script upravit aby sa do XML vložily všetky a vyzeralo to takto:

<?xml version="1.0" encoding="utf-8"?>
<data><Subory NazevSouboru="auto" /><Subory NazevSouboru="all" /><Subory NazevSouboru="make" /><Subory NazevSouboru="patch" /></data>

foreach (glob("patch/*") as $filename) {
$dom = new DOMDocument("1.0", "utf-8");
$elements = $dom->CreateElement("data");
$element = $dom->CreateElement("Subory");
$element->setAttribute("NazevSouboru", false);
$Atribname = $element->getAttributeNode("NazevSouboru");
$Atribname->value = $filename;
$elements->appendChild($element);
$dom->appendChild($elements);
$dom->save("patchlist.xml");
}

<-- Celý script ono to zistí ake su subory v zložke patch a ptm ich zapíše do XML....

A když dám jen echo $filename; tak to v pohode vypiše všetky subory

Takže script by mal vyzerat nejak takto :

$dom = new DOMDocument("1.0", "utf-8");
$data = $dom->CreateElement("data");
foreach (glob("patch/*") as $filename) {
$subory = $dom->CreateElement("Subor");
$subory->setAttribute("NazevSouboru", false);
$Atribname = $subory->getAttributeNode("NazevSouboru");
$Atribname->value = $filename;
}
$data->appendChild($subory);
$dom->appendChild($data);
$dom->save("patchlist.xml");
ale aj tak to nefunguje :-(

Ano :-)) Dakujem Pekne :-))