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

my $text="ein seeeeeeeeeeeeeeeeeeeeeeeeeeeeeehr langer Text";
$dialog->configure(-text=>"$text");
$dialog->Show();