#!/usr/bin/perl

use strict;
use warnings;

use Spreadsheet::ParseExcel;

my $book = Spreadsheet::ParseExcel::Workbook->Parse( "file.xls" );

foreach my $sheet ( @{$book->{Worksheet}} ) {
  print "SHEET Name:   ", $sheet->{Name}, "\n";
  print "SHEET MaxRow: ", $sheet->{MaxRow}, "\n";
}