$tl->bind("<Alt-Key-T>", sub { $foo->invoke(); } );