#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Text;

my $top = MainWindow->new();

my $txt = $top->Text->pack(-expand => 1, -fill => 'both' );
$txt->bindtags([<Button-2>, <ButtonRelease-2>]);

if (my @tags = $txt->bindtags) {
        foreach my $tag(@tags) {    
                print $tag, "\n";
        }
}

MainLoop;