{	use Tk;		#needed for "Ev" defines next code line
	$retval = $main_win -> bind('<Any-KeyPress>' => 
					[\&handle_key, $s, Ev('A'), Ev('K')]);
}