DarknessX has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to use Net::Dict, but having issues. Here's an example.
#!/usr/bin/perl -w use strict; use Net::Dict; my $dict=Net::Dict->new(''); 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)
Any clues what I'm doing wrong? Thanks in advance.
-----BEGIN GEEK CODE BLOCK----- Version: 3.1 GPA/P/S d+ s++:+ a--- C++ UL++ P++>++++ L++ E W++ N o? K? w-- !O M- V? + PS++ PE- Y PGP- t 5- X+ R* tv-- b++ !DI D---(+) G e- h-- r++ y? ------END GEEK CODE BLOCK-----