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();