perl -MXML::CSV -e '$o=XML::CSV->new;$o->parse_doc(shift,{headings=>shift});$o->print_xml' no_headings.csv

perl -MXML::CSV -e '$o=XML::CSV->new;$o->parse_doc(shift,{headings=>shift});$o->print_xml' headings.csv 1