use warnings;
use strict;
use Spreadsheet::ParseExcel;

my $f_to_parse = "accounts.xls";

my $workbook = Spreadsheet::ParseExcel::Workbook->Parse($f_to_parse);
for my $sheet (@{$workbook->{Worksheet}}) {
    print "Sheet: ", $sheet->{Name}, "\n";
}