#!/usr/bin/perl

use strict;

use warnings;
use Tk;

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

MainLoop;