#*****************************************************************#
  # ALLGEMEIN:                                                      #
  # Eindimensionale XML-Dateien                                     #
  #*****************************************************************#
  
  use includedatei;  

  $file = '/home/www/html/datei.xml';

  %feld = includedatei->readXML($file);

  $feld{'TEST1'} = 'blabla';
  $feld{'TEST2'} = 'blabla';
  $feld{'TEST3'} = 'blabla';

  includedatei->saveXML($file,%feld);

  
  #*****************************************************************#
  # Subroutinen                                                     #
  #*****************************************************************#  
  
  # XML lesen

  sub readXML()
  {
    my ($self, $datei) = @_;

    my @xml = '';

    open(FILE, '<'.$datei);
    while (<FILE>) {push(@xml, $_);}
    close(FILE);

    foreach (sort @xml)
    {
      if ($_ =~ m/\<FIELD NAME="(.*)"\>(.*)\<\/FIELD\>/i) {
        $var{$1} = $2;
      }
    }
    return %var;
  }

  # XML speichern

  sub saveXML()
  {
    my ($self, $datei, %var) = @_;

    $xml  = '<?xml version="1.0" encoding="ISO-8859-1"?>'."\n";
    $xml .= '<RECORD>'."\n";
    while (@key = each(%var))
    {
      $xml .= '  <FIELD NAME="'.$key[0].'">'.$key[1].'</FIELD>'."\n";
    }
    $xml .= '</RECORD>';

    open(FILE, '>'.$datei);
    print FILE $xml;
    close(FILE);
    chmod 0666, $datei;
  }