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

##</code><code>##

perl -MNet::Dict -le"for(@ARGV){print@{$_}for@{Net::Dict->new(q,dict.org,)->define($_)}}"