##

    my $xmlDocument = XML::COOL:MODULE->new(document);

    $xmlDocument->{root} = "house";
    $xmlDocument->addNode ("house", "groundfloor");
    $xmlDocument->addElement ("item", "cooker", "white");
    ...
    ...
    $xmlDocument->end;
    $xmlDocument->write ("myhouse.xml");