$oExcel = new Spreadsheet::ParseExcel;
$oBook = $oExcel->Parse('/tmp/input.xls');

for(my $iSheet=0; $iSheet < $oBook->{SheetCount};    $iSheet++) {
	$oWkS = $oBook->{Worksheet}[$iSheet];
	
	print "Sheet: " . $iSheet . "\n";

	print "Name: ".$oWkS->{Name}."\n";

	print "MaxCol: ".$oWkS->{MaxCol}."\n\n";
}