Select Code to Download

$lb->tagBind ('cr_link', "<Button-1>", [ \&show_cr, "cr_link" ]);

#psuedo code
my $i = 0;
...
  $h->{$i} = "Something useful here like $text_of_lb->{$i}";
  $i++;
}