my $synonyms;
eval {
    $synonyms=$MSWord->SynonymInfo({Word => $word, LanguageID => $lang
+uage})->SynonymList(1);
};
if($@) {
    print "Nope\n";
} else {
    foreach (@{ $synonyms }) { print $_."\n" }; 
}
[download]

Type "perldoc -f eval" and "perldoc -f die" at a command prompt to see more information about this.

/J