#! /usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Dialog;
my $mw = MainWindow->new();
my $text = 'Save all your changes before exit?';
my $dialog = $mw->Dialog(-title => 'Test',
                          -text => $text,
                          -bitmap => "question",
                          -default_button => 'ok',
                          -buttons => ['cancel','ok']);

for(0..3){
    print $_,": ";
    my $entscheidung = $dialog->Show();
    print $entscheidung,"\n";
}
MainLoop;