habs jezt so:
my $output = new IO::File(">output.xml"); die $! unless($output);

selber fehler:
Attempt to insert start tag after close of document element at K:\*\csv2xml.pl line 19


ach und im XML schreibt er die ganzen spaltenüberschriften in eine zeile bzw ein tag also:
<spalte1 spalte 2 spalt3 ... >\n\n

<!--EDIT|crypt0|1107344817-->