#!/usr/bin/perl -w 
use strict;

use Spreadsheet::ParseExcel;

my $parse_excel = Spreadsheet::ParseExcel->new();

	my $workbook1= $parse_excel->Parse('data/DASNYFootnotes.xls');
		print "Max row : ", 1 + ${$workbook1->{Worksheet}}[0]->{MaxRow}, "\n";

	my $workbook2= $parse_excel->Parse("data/dasnyFootnotes.xls");
		print "Maxrow b: ", 1 + ${$workbook2->{Worksheet}}[0]->{MaxRow}, "\n";