use warnings;
use Tk;
use strict;

# Das mw erzeugen
my $mw = MainWindow->new();
$mw->geometry("140x40");

my $message = ' ';

$mw->Label(-text => '     Taste drücken!     ')->pack();

# Tastenbezeichnung (mit 'k' gibt's den Code numerisch) 
$mw->bind('<Key>', [\&check_key, Ev('K')]);

$mw->Label(-textvariable=>\$message)->pack;

MainLoop;

sub check_key
  { $message = "Taste  '<$_[1]>'"; }