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
[download]

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

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"