Select Code to Download

use strict;
use Tk;
...

   print "keysym=$keysym_text, numberic=$keysym_decimal\n";
}