#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Spreadsheet::ParseExcel;
my $excel = new Spreadsheet::ParseExcel or die;
my $book = $excel->Parse($ARGV[0]) or die;

my $sheet;
foreach $sheet (@{$book->{Worksheet}}) {
#foreach (0 .. $book->{SheetCount}) {
#	$sheet = $book->{Worksheet}[$_];
	print $sheet->{Name},"\n";
}