#!/usr/bin/perl
use strict;
use Spreadsheet::ParseExcel;
#my $Filename ="/var/tmp/example1.xls";
my $parser =Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('example1.xlsx');
if(!defined $workbook)
{
die $parser->error(),".\n";
}
for my $worksheet($workbook->worksheets()){
my ($row_min,$row_max)=$worksheet->row_range();
my ($col_min,$col_max)=$worksheet->col_range();
for my $row ($row_min .. $row_max) {
for my $col($col_min .. $col_max) {
my $cell=$worksheet->get_cell($row,$col);
next unless $cell;