# callbacktest.pl

use strict;
use warnings;
use Tk;

my $label;

sub c_test {
    $label->configure(-text => $_[1]);
}

my $mw = MainWindow->new();

my $button = $mw->Button(
    -text => 'Ctrl-S',
    -command => [\&c_test,'Hallo'],
    );
    
$label = $mw->Label(-background => '#FFFFFF');

$mw->bind('<Control-s>' => [\&c_test,'Hallo']);

$label->pack();
$button->pack();

MainLoop;