Select Code to Download

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

$oFormat = $oWkC->Format;

$oFill = $oFormat->Fill;