Help for this page
use Spreadsheet::ParseExcel; ... if ( !defined $workbook ) { die $parser->error(), ".\n"; }
C:arthlink.xls File not found.
my $filename = shift || 'C:\Earthlink.xls';