Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $word=$dict->define('banana');
print $word;
#this returns ARRAY(0x825d3ec)

-----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-----