# Binding two things to the same subroutine
my $print_sub = sub {print "Button A event\n"};
$mw->bind( '<KeyPress-a>', [ $print_sub ] );
$mw->bind( '<KeyRelease-a>', [ $print_sub ] );
[download]