$MW->bind('<k>', \&CallbackSub);

##</code><code>##

$MW->bind('&lt;Any-KeyPress&gt;', &#91;\&mysub, Ev('k')&#93;);

##</code><code>##

$MW->bind('&lt;Any-KeyPress&gt;', sub { &mysub(Ev('k')) });