#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new;
$mw->bind("<Key>",  sub { &pressed  } );
$mw->bind("<KeyRelease>",  sub { &released  } );
MainLoop;

sub pressed{
  print 'Key: ', ${Ev('K')}, " pressed\n";
  $mw->bind("<Key>",  sub { } );
  $mw->bind("<KeyRelease>",  sub { } );
}

sub released{
print 'Key: ', ${Ev('K')}, " released\n";
}