Help for this page
#!/usr/bin/perl use Tk; ... $f->focus; MainLoop;
#!/usr/bin/perl use warnings; ... print "keysym=$keysym_text, numberic=$keysym_decimal\n"; }