csv xml 변환

XML 변환기 에러: 부적합한 형식 위치: file:///D:/ttf/ex.xml 행 2, 글자 위치 2:<date>20100429</date>
-^

<row>
<date>20100429</date>
<이름>세벌</이름>
<구분>PC</구분>
<제조사>삼성</제조사>
<모델>DM-C200-PP12G</모델>
<과>총무과</과>
<팀>전산팀</팀>
</row>
<row>
 
<date>20100501</date>
<이름>두벌</이름>
<구분>PC</구분>
<제조사>HP</제조사>
<모델>HP-2342</모델>
<과>총무과</과>
<팀>관리팀</팀>
</row>

#!/usr/bin/env perl
use strict;
use warnings;
 
my @elem;
 
print("<?xml version='1.0' encoding='utf-8'?>\n<list>\n");
 
while ( my $line = <> ) {
    chomp $line;
    if ( $. == 1 ) { $line =~ s/^\xEF\xBB\xBF//; @elem = split /,/, $line; next; }
 
    print "<row>\n";
    my @item = split /,/, $line;
    foreach my $i ( 0 .. $#elem ) {
        print "<$elem[$i]>$item[$i]</$elem[$i]>\n";
    }
    print "</row>\n";
}
print("</list>\n");