$colorBox->Fill->{ForeColor} = ({Red=>255, Green=>255, Blue=>153});

##</code><code>##

Win32::OLE(0.1601) error 0x80020005: "Type mismatch"
    in PROPERTYPUT "ForeColor" at build_ql.prl line 121