#!/usr/bin/perl

use strict;

use warnings;
use Tk;

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

MainLoop;