my $mw = tkinit();
my $titel = "titel";
my $text = "text";
my $dialog = $mw->Dialog(-title => $titel,-text => $text, -bitmap => 'info', -font=>'courier 8', -buttons => ['Jetzt', 'Später', 'Nie']);
	
	#$dialog -> protocol( 'WM_DELETE_WINDOW'=>sub {exit(); } );
	
 	$dialog-> transient('');
 	$mw->withdraw();  
 	
	my $answer = $dialog->Show();
	
	if($answer eq "Jetzt"){
	}
	elsif ($answer eq "Später"){
	}
	elsif ($answer eq "Nie"){
		my $titel = "titel";
		my $text = "text";
		my $bestaetigung = $mw->Dialog(-title => $titel,-text => $text,  -font=>'courier 8', -buttons => ['Ja', 'Nein']);
		my $antwort = $bestaetigung->show();
		if($antwort eq "Ja"){
		}