my $sel =  $t->curselection();

##</code><code>##

sub brscmd {
my ($previous_index, $actual_index) = @_;

my ($row, $col) = split ',', $actual_index;
print "$row $col\n";
print "\n[brscmd] actual index <$actual_index> from curselection<$actual_index>\n";
}