$ perl -d:Trace -MTk -e" tkinit()->Text()->pack; MainLoop" 2>2

$ grep -i bind 2 |grep -i "<3>"
Tk/Text.pm:146:  $mw->bind($class, '<3>', ['PostPopupMenu', Ev('X'), Ev('Y')]  );