my $label=$main->Label(-text=>"Wort")->pack;
$label->bind('<1>'=>\&exit):