I created an empty file, test.xls, and ran the following script. I died with:

Can not parse 'test.xls': at excel.pl line 11.

However, when I tried to open a real .xls file, everything went smoothly.

#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;
my $file;

$file = 'test.xls';

my $oExcel = new Spreadsheet::ParseExcel;

my $oBook = $oExcel->Parse( $file )
    or die "Can not parse '$file': $!";

print $oBook, "\n";
exit(0);
[download]

It appears you are either opening $sourcename correctly, or you are not reaching the open call. You can use pieces of the code from the module and write yourself another script which walks the _subGetContent subroutine( I hope that is the correct sub, I did not do it myself.. ). Or, try using Win32::OLE( here is a link to an example on IBM's site ).

Sorry, I can not be of any more help than that.

Will perl for money
JJ Knitis
(901) 756-7693
gt8073a@industrialmusic.com