'This is VBA in Excel
Dim thisBook as Workbook

'need to add ref in Tools/References
Dim otherApp as Word.Application 
Set otherApp = GetObject("Work.Application")
otherApp.Activate

'Send the keystrokes...
Application.SendKeys "keystrokes"

##</code><code>##

use strict;
use Win32::OLE;
my $WordApp = Win32::OLE->GetActiveObject("Word.Application");
#blah blah