$Sheet->Cells(1,1)->{Interior}->{Color} = ($blue << 16)
                                        + ($green << 8)
                                        + $red;