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