Hi,

First of all you should always start your program with

use strict;
use warnings;
[download]

You are looking for something like this:

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

See Tk::Listbox for documentation of the get() and  curselection() methods.

Cheers, Christoph