#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
 
my $file = '/home/muthum/excel1.xls';
my $parser   = Spreadsheet::ParseExcel->new( Password => 'secret' );
my $workbook = $parser->Parse($file);
if ( !defined $workbook ) {
  die $parser->error(), ".\n";
}

my $count = $workbook->{SheetCount};
print "Workbook has $count sheets\n";
for my $i (0..$count-1){
  my $worksheet = $workbook->{Worksheet}[$i];
  my $cell = $worksheet->get_cell( 0, 0 );
  if ($cell){
    print "[A1] = '", $cell->Value,"'\n";
  }
}