use XML::Excel; 
$excel_obj = XML::Excel->new(); 
$excel_obj->parse_doc("file.xls", {headings => 1});
$excel_obj->print_xml("file_output.xml");