perl -MNet::Dict -le"for(@{Net::Dict->new(q{dict.org})->define(shift)}){print qq,@{$_},,q,Do you want another definition?,;$_=;die unless /y/i;}" word