chris$ perl -MTk -e'tkinit->bind("<3>",sub{print "3\n"});MainLoop'
3
3