#!/usr/bin/perl/

use strict;
use warnings;

use Spreadsheet::ParseExcel;

# Pfad zur Exceldatei
my $xls = 'exceldatei.xls';

# Parser-Objekt erzeugen
my $parser = Spreadsheet::ParseExcel->new();
# Exceldatei öffnen
my $workbook = $parser->parse($xls);

# Prüfen, ob das geklappt hat
die "Geht nicht: ", $parser->error(), ".\n" unless defined $workbook;

# Das erste Arbeitsblatt (Index [0])
my $worksheet = ($workbook->worksheets())[0];

# Der Index der ersten Spalte (A in Excel)
my $col = 0;

# Wie viele Zeilen hat das Arbeitsblatt? (Genauer: Wie lautet der Index der letzten Zeile?)
my $lastRow = ($worksheet->row_range())[1];

# Schleife: Zähle von 0 (=erste Zeile) bis zur letzten Zeile
for my $row (0..$lastRow) {
    # Drucke die Zelladresse (im Excel-Stil, geht aber so nur bis Spalte Z)
    print chr($col+65) . ($row+1) . ": ";
    # Wenn die Zelle leer ist, bringt die ->value()-Methode Fehler, deshalb Prüfung
    if (my $cell = $worksheet->get_cell($row, $col)) {
        print $cell->value();
    }
    print "\n";
}