#!/usr/bin/perl

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

my $mw = tkinit();

my $dialog;
$dialog=$mw->Dialog(-title=> "Mein Dialog",
                                 -bitmap=> 'warning',
                                 -buttons=>["Yes","No"],
                                 -width=>100,
                                 -height=>20,
                                 -font=>'Helvetica 12');

my $text="ein seeeeeeeeeeeeeeeeeeeeeeeeeeeeeehr langer Text und noch viele zeichen mehr";
$dialog->configure(-text=>"$text");
$dialog->configure(-wraplength => 0);
$dialog->Show();

MainLoop;