use Tk;
use strict;
use warnings;

my $mw = new MainWindow(title => "demo");
my $entry = $mw->Entry(width => 20)->pack;
$entry->bind("<KeyRelease>", [sub {print $_[1];}, Ev('A')]);
MainLoop;