use diagnostics;
use strict;
use warnings;

use Tk;

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