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