Help for this page
Range("A1").Select With Selection.Interior ... .Pattern = xlSolid End With
PERL --> $app->Range("A1")->Select with Selection->Interior({'ColorIndex' +} => 8,{'Pattern'} => "xlSolid");