perl -MTk -e'$t = tkinit->Text->pack;$t->bind("<KeyPress>", sub{print $t->index("insert"),"\n"});MainLoop'