Select Code to Download

  $text->tag('bind','your-tag','<Button-1>'=>sub {
    my $var = $text->get($text->tagPrevrange('your-tag','current'));
    # and here do something with $var
  });