# table option -browsecommand => \&brscmd, sub brscmd { my ($previous_index, $actual_index) = @_; my ($row, $col) = split ',', $actual_index; print "r$row c$col\n"; # popup if row,col meets some criteria }