use strict;
use warnings;
use Tk;
use Tk::Dialog;

# Das mw erzeugen
my $mw = MainWindow->new(-background => 'lightskyblue1');

$mw->Label(-text => 'Test Messagebox')->pack(-padx => 10, -pady => 10);

my $text = "Sind Sie sicher?";

$mw->messageBox(-title   => 'Oops',
                -message => $text,
                -icon  => 'question',
                -type    => 'ok',
               );
MainLoop;