I came up with the solution. Just use the indexes
'sel.first' and 'sel.last' [download]
In reply to Re: Perl Tk Text Selection by Anonymous Monk in thread Perl Tk Text Selection by Anonymous Monk