Select Code to Download

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

sub brscmd {
my ($previous_index, $actual_index) = @_;
...
print "$row $col\n";
print "\n[brscmd] actual index <$actual_index> from curselection<$actu
+al_index>\n";
}