my $d = Net::Dict->new('dict.org');
print $d->define("moose")->[0][1];