use strict;
use warnings;
use Tk;

my $mw = MainWindow -> new();
my $text = $mw -> Text() -> pack();
$mw -> bind("Tk::Text", "<Alt-Key-o>" => sub { print "funktioniert" } );

MainLoop;