#!/usr/bin/perl -w
use Net::DICT;

#Clear "file"
open (FILE, ">.vocab_file");
        print FILE "";
close FILE;

open (LIST, "vocab_list")
        || die "Missing vocab list?\n";
while ($word = <LIST>)  {
        #Lookup definition...
        $dict = Net::DICT->new();
        $dict->open('dict.org')
                || die "can't connect to dict.org: $!, " . $dict->errno() . "\n";
        @def = $dict->define('!', $word);
        open (FILE, ">>.vocab_file");
                foreach (@def) {
                        print FILE "$$_[3]";
                }
        close FILE;
        $dict->quit;
}
close LIST;