perl -MTk -e '$mw = tkinit; foreach my $z (0..9) { $mw->bind("<Key-$z>", sub{ print "$z\n"; }); } MainLoop;'