#!/usr/bin/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="big";
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" };