sub Programm_Verlassen 
{
   # Dialog Ja Nein
   my $dialog = $window->Dialog(-text => 'Wollen Sie wirklich beenden?',
   -bitmap => 'question',
   -title => 'Quit?',
   -default_button => 'Ja',
   -buttons  => [qw/Ja Nein/],
               
            ); # Dialog

   my $answer = $dialog->Show(); 
   if ($answer =~ /j/i){
      print "\nEs wurde ja ausgewaehlt.\n";
      exit(0);
   } # if
   else {
      print "\nEs wurde nein ausgewaehlt.\n";
   } # else

}