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