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