Try this:

$top->bind($can, '<Button-1>', sub{my_test(root)});
[download]