#!/usr/bin/perl -w use Edict; &Edict::Slurp;