#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Spreadsheet::ParseExcel;
#use Spreadsheet::WriteExcel;

my $parser = Spreadsheet::ParseExcel->new();
my $ReadWorkbook = $parser->parse('write.xls');

#my $WriteWorkbook = Spreadsheet::WriteExcel->new('final.xls');
#my $WriteWorksheet = $WriteWorkbook->add_worksheet('Data');


for my $ReadWorksheet($ReadWorkbook->Worksheet('Data')){
	my ($row_min, $row_max) = $ReadWorksheet->row_range();
	my ($col_min, $col_max) = $ReadWorksheet->col_range();	
	
	for my $row($row_min..$row_max){
		for my $col ( $col_min..$col_max){
			                        
			my $cell = $ReadWorksheet->get_cell($row, $col);
			#condition XXX{
			$WriteWorksheet->write($row, $col, $cell->value());
	        }
	  }
}