use Tk;

my $mw = Tk::MainWindow->new( -title => "TEST");
  
$mw->bind( '<Control-KeyPress-a>', [sub {print "Button a has been pressed\n"}] );
$mw->bind( '<Control-KeyRelease-a>', [sub {print "Button a has been released\n"}] );

MainLoop;