#!/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; 
 
Code