$oBook = Spreadsheet::ParseExcel::Workbook->Parse("$strExcelPath");
  foreach my $oWkS (@{$oBook->{Worksheet}}) {
  print "--------- SHEET:", $oWkS->{Name}, "\n";
  for(my $iR = $oWkS->{MinRow} ; 
  defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; 
  $iR++) {
   for(my $iC = $oWkS->{MinCol} ;
                            defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
                $oWkC = $oWkS->{Cells}[$iR][$iC];
                print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);

##</code><code>##

$oFormat = $oWkC->Format;

##</code><code>##

$oFill = $oFormat->Fill;