use Win32::OLE::Const 'Microsoft Excel';
[...]
my $Range = $Book->Worksheets('Name')->Range("H1");
$Range->FormatConditions ->Delete;
$Range->FormatConditions->Add(xlTextString,
   { String => "finished",
     TextOperator => xlEndsWith });
$Range->FormatConditions(1)->Interior->{ColorIndex} = 3;
$Range->FormatConditions(1)->Font->{ColorIndex} = 2;
$Range->FormatConditions->Add(xlTextString,
   { String => "in progress",
     TextOperator => xlEndsWith });
$Range->FormatConditions(1)->Interior->{ColorIndex} = 3;
$Range->FormatConditions(1)->Font->{ColorIndex} = 5;