Select Code to Download

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

       Another use of arguments allows you to write generalized method
+s which
       are easier to re-use:
...
       $a->bind("<Down>",['Next','Line']);

       This will call $a->Next('Page') or $a->Next('Line') respectivel
+y.