Set WordObj = CreateObject("Word.Basic")
WordObj.FileNew
WordObj.EditClear

##</code><code>##

use OLE;
my $wordObj = OLE->CreateObject("Word.Basic");
$wordObj->FileNew;
$wordObj->EditClear;

##</code><code>##

| wordObj |
wordObj := OLE createObject: 'Word.Basic'.
wordObj fileNew; editClear.