PERL -->
      $app->Range("A1")->Select with Selection->Interior({'ColorIndex'} => 8,{'Pattern'} => "xlSolid");