$lb -> bind("<Double-Button-1>",\&display);

sub display {
  $selected = $lb -> get($lb -> curselection);
  $message = "You selected: $selected \n";
  print "you chose $selected\n";
  $lb->selectionClear(0, 'end');
}