sub getXMLTree{
   my $parser = new XML::DOM::Parser;
   $tree = "";
   if(!open(MYFILE,"$fileName")) {
      $tree = $parser->parse("<root></root>");
      $tree = createHeader($tree);
      $tree = createBody($tree);
   }else{
      close(MYFILE);
      $tree = $parser->parsefile($fileName);
   }
   $tree = updateHeader($tree);
   return ($tree);
}

##</code><code>##

 ___
/\__\ "What is the world coming to?"
\/__/ www.wolispace.com