use Spreadsheet::ParseExcel;

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


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


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


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