Select Code to Download

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

#!/usr/bin/perl

use Tk;
...

sub item1 { print "Item 1!\n" }
sub item2 { print "Item 2!\n" }