# this is all documented under Tk::bind
$mw->bind('<3>', [\&callback, Ev('X'), Ev('Y'), Ev('W')]);