use Spreadsheet::ParseExcel;

my $filename = shift || "C:\Earthlink.xls";

print "$filename\n";
my $parser   = Spreadsheet::ParseExcel->new();

my $workbook = $parser->parse("$filename");


if ( !defined $workbook ) {
    die $parser->error(), ".\n";
}

##</code><code>##

C:arthlink.xls
File not found.

##</code><code>##

my $filename = shift || 'C:\Earthlink.xls';