The question is a bit short on context but here's a few Perl fragments which might be applicable (untested, to say the least):

$Range = $Sheet->Range("A1");
$Range->Select;
$Excel->Selection->Interior({ColorIndex => 8,Pattern => "xlSolid"});
[download]

This is assuming Excel and that the sheet has been activated, etc.