use Spreadsheet::ParseExcel::Simple;
use Data::Dumper;

my $xls = Spreadsheet::ParseExcel::Simple->read('excel.xls');
foreach my $sheet ($xls->sheets) {
  die Dumper $sheet;
  #while ($sheet->has_data) {
  #  my @data = $sheet->next_row;
  #}
}