{
use Data::UUID;
  
my $name = ${'mediatomb'}{'ServerName'} || 'mediatomb';
my $uuid = ${'mediatomb'}{'UUID'} || Data::UUID->new->create_str();

$OUT .= "    <name>$name</name>\n";
$OUT .= "    <udn>uuid:$uuid</udn>\n";
}