use Spreadsheet::ParseExcel;

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

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

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


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