~$ perl -MTk -MData::Dumper -e'
$m = tkinit->TableMatrix(-selectmode=>"extended",-variable=>{})->pack;
$m->bind("<3>",sub{print Dumper [$m->get(($m->curselection)[0,-1])]});
MainLoop'