#!/usr/bin/perl -w
use strict;
use Net::Dict;
my $dict=Net::Dict->new('dict.org');
my @words=<STDIN>;
foreach (@words){
chomp;
print "$dict->define('$_')";
}
#but that returns Net::Dict=GLOB(0x8271660)->define('word')
#so I'll try this:
my $word=$dict->define('banana');
print $word;
#this returns ARRAY(0x825d3ec)