use Spreadsheet::Read;
our $workbook = ReadData("tmp.xls", debug => 9);
my ($i,$j)=0;
my @cell;
for($i=1;$i<3;$i++){
	for($j=1;$j<7;$j++){
		$cell[$j] = cr2cell($j, $i); 
		print $workbook->[1]{$cell[$j]};
		print ",";
	}	
	print "\n";
}