#!perl -w

# Uses
use strict;
use Win32::OLE;
use Win32::OLE::Const;

# Create MSWord object and load constants
my $MSWord = Win32::OLE->new('Word.Application', 'Quit') or 
die "Could not load MS Word\n";
my $wd=Win32::OLE::Const->Load($MSWord);

# Word and language to search for
my $word="quick";
my $language=$wd->{wdEnglishUS};

# Get synonyms from MSWord
my $synonyms=$MSWord->SynonymInfo(
{Word => $word, LanguageID => $language})->SynonymList(1);

# Print them out...
foreach (@{ $synonyms }) { print $_."\n" }; 

##</code><code>##

OLE exception from "Microsoft Word":

One of the values passed to this method or property is out of range.

Win32::OLE(0.1403) error 0x800a16d3
in METHOD/PROPERTYGET "SynonymList" at C:\syn.pl line 18