my $root = "BLAHBLAHBLAH";

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

MainLoop;

...

sub my_test {
	shift;    # don't know why I have to do this, but ...
	my $msg = shift;
	print "[$msg]\n";
}