Showing how to create to bind keyboard an mouse events to functions in a Perl Tk based application.