Using OLE Objects 

• Setting properties

ActiveSheet.Cells(1,1).Interior.ColorIndex = 15  'VB

$sheet->Cells(1,1)->Interior->{ColorIndex} = 15;  # Perl

• Calling methods

Selection.MoveLeft(wdCharacter, 1, wdExtend)  'VB

$wd->Selection->MoveLeft({unit => wdCharacter, Count => 1,
                          Extend => wdExtend});  # Perl