Hast du dir die manpage schon durchgelesen ?

Mit $text -> getSelected(); findest du heraus ob der Benutzer etwas markiert hat, und wenn ja, was es ist.

imho ist es ganz praktisch sich auch die quellen von Tk anzusehen, in Tk::Text gibt es eine Methode select(), die es dir erlaubt Text zu markieren.
Ich kann dir im Moment leider nicht sagen, wie du sie aufrufen musst, da ich sie bei mir abgeändert habe, sodass man bei mehreren markierten Zeilen sieht, wo sie aufhören.
Aber ich meine du musst Start und End Index an sie übergeben.

Ein bind() für das markieren fällt mir gerade nicht ein.
Da könntest du zwar die select() Methode von Tk::Text abändern, aber es geht sicher eleganter.