#$can->bind( \$can, '<Button-1>', \&my_test( $root ) );
$can->bind( '<Button>', [ \&my_test, $root ] );

##</code><code>##

$ ./bind_test.pl
 at c:/Perl/site/lib/Tk.pm line 228.