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