#!/usr/bin/perl

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

my $parser = Spreadsheet::ParseExcel->new();
my $ReadWorkbook = $parser->parse('write.xls');
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);
      print "$row,$col,",$cell->value(),"\n" if defined($cell);
    }
  }
}