use Tk;

my $mw = MainWindow->new;
$mw->bind("<Key>", [ sub { print "Taste : '$_[1]'\n" }, Ev('K') ] );
# oder auch Ev('k') mit kleinem K
MainLoop();