my $OutXmlFile = IO::File->new(">$OutFileName");

  my $writer = XML::Writer->new(OUTPUT => $OutXmlFile,DATA_MODE=>1,DATA_INDENT=>5);