As I recall, it takes a little trial and error. I found that the format fill index I was after was 1, so that you may want something like this:

  my $cell_obj = $sheet_obj->{Cells}[$row][$col];
  my $format_obj = $cell_obj->{Format};
  my $fill_color = $format_obj->{Fill}[1];
[download]