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

my $top = tkinit ();

my $DialogRef = $top->Dialog(
    -title          => "Titel...",
    -text           => "äöüß",
    -default_button => "ok",
    -buttons        => [qw/ok/],
);

$DialogRef->Show(-global);

MainLoop;