use strict;
use warnings;
##</code><code>##

$lb -> bind('<Double-1>'=> sub {
                                print $_[0]->get($_[0]->curselection), "\n";
                              },
               );