Select Code to Download

#!/usr/bin/perl -w

...
        );
    }
}

$w->bind("tag", '<1>', [ \&bind, "one", "two" ]);
sub stuff
...
    print "Callback received this stuff:\n";
    for (@a) { print "\targ($i) : $_\n"; $i++ }
}