use strict;
use XML::Excel; 
my  $excel_obj = XML::Excel->new(); 
eval
	{
		my $status =$excel_obj->parse_doc("address1.xls", {headings => 1});
		$excel_obj->print_xml("address1output.xml");
	};
	if($@)
	{
	  print $@."\n";
	}