#!/usr/bin/perl

use strict;
use warnings;
use Spreadsheet::XLSX;
 
my $excel = Spreadsheet::XLSX -> new ('/tmp/myexcel.xlsx');
my $line;
foreach my $sheet (@{$excel -> {Worksheet}}) {
    printf("Sheet: %s\n", $sheet->{Name});
    $sheet -> {MaxRow} ||= $sheet -> {MinRow};
    foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
        $sheet -> {MaxCol} ||= $sheet -> {MinCol};
        foreach my $col ($sheet -> {MinCol} ..  $sheet -> {MaxCol}) {
            my $cell = $sheet -> {Cells} [$row] [$col];
            if ($cell) {
                $line .= "\"".$cell -> {Val}."\",";
				$line .= $cell -> {Val};
				if ($col != $sheet -> {MaxCol}) #appends the comma only if the column being processed is not the last
				{
					$line .= ",";
				}
            }
        }
        chomp($line);
        print "$line\n";
        $line = '';
    }
}