Select Code to Download

#!/usr/bin/perl -T  

...
$wordref->{word} = $word;

my $jsonobj = encode_json($wordref);