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