Select Code to Download

use strict;
use warnings;

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