Select Code to Download

my $shannon=Statistics::Shannon->new($data,);
my $output=$shannon->index ($base_index);
...
print "Index: $output\n";

print Dumper($shannon);

Index: 2.17095059445467
$VAR1 = bless( {
...
                 'update' => sub { "DUMMY" },
                 'sum' => 10
               }, 'Statistics::Shannon' );