$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"} );