Try

#!/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";
}

for my $worksheet ( $workbook->worksheets() ) {
  my $cell = $worksheet->get_cell( 0, 0 );
  next unless $cell;
  print "[A1] = ", $cell->value(),"\n";
}
[download]

I tried to execute the code you gave me but am getting the below error please let me know am I missing anything or module version need to be upgraded or dependency required? -bash-3.2$ dos2unix test.pl dos2unix: converting file test.pl to UNIX format ... -bash-3.2$ perl test.pl Can't locate object method "worksheets" via package "Spreadsheet::ParseExcel::Workbook" at test.pl line 15.

You are out of date by about 8 years.

Try without worksheets method which was added in version 0.43 January 7 2009

#!/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";
  }
}
[download]

What are you trying to do with the spreadsheet, just read the contents ?

poj