'Komponente' = {
                            Grafikkarte => {
                                                   ram_in_mb => '128';
                                                   schnittstelle => 'agp';
                                                   etc....
                                                }

                            Soundkarte => {
                                                   hersteller => 'AC97';
                                                   schnittstelle => 'pci';
                                                   etc....
                                                }


                      }

use XML::Writer;
use IO::File;

  my $if = new IO::File;
  $if->open("< daten.pl")

  my $writer = new XML::Writer(OUTPUT => $if);
  $writer->startTag("Komponente")  
  $writer->endTag("Komponente");
  $writer->end();
  $output->close();

 my $if = new IO::File;
 $if->open("< daten.pl")

 $output->close();

 $if->close();

startTag(' Komponente ') 
sowie endTag(' Komponente ')