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";
}