$hl->bind('<ButtonRelease-1>', sub {print "hi";});