Select Code to Download

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

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