sub writeBasicTag {
    my $tag = $_[0];
    $writer->startTag($tag);
    $writer->characters(XXX); 
    $writer->endTag($tag);
}