$list_box->bind('<Button-1>',
                sub {
                  my $indx = $list_box->curselection();
                  my $selected_object = $list_box->get($indx);
                });
$list_box->bind('<Double-Button-1>', 
                sub{
                  print “\nuser clicked twice”;
                });