use Lingua::Wordnet;
my $wn = new Lingua::Wordnet;

$wn->unlock();

my $synset = $wn->lookup_synset("baseball","n",1);
my $newsynset = $wn->new_synset("changelini","n");
$newsynset->gloss("A baseball game in which a foo is used.");
print $newsynset->write;
#$synset->add_hyponym($newsynset);

print $wn->lookup_synset("changelini","n",1);

$wn->close();