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