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