use Spreadsheet::ParseExcel;<br>
my $oBook = $oExcel->Parse("test.xls");
$oWkS = $oBook->{Worksheet}[0];
for(my $iR = 0;defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
   $oWkC0 = $oWkS->{Cells}[$iR][0];
   $oWkC1 = $oWkS->{Cells}[$iR][1];
   if ($oWkC0->{Val}){
        print "$oWkC0->{Val}-------$oWkC1\n";
   }
}