You probably don't want to use a Text widget since you most likely won't want an editable dialog box... and even a ROText seems like overkill. Probably just using a Label is your best bet. Pack it inside a scrolled Pane to get the scroll bars. See example.

#!/user/bin/perl

use strict;
use warnings;
use Tk;
use Tk::DialogBox;
use Tk::Pane;

my $mw = MainWindow->new();

my $dialog =
  $mw->DialogBox( -title => "Title", -buttons => [ "OK", "Cancel" ] );

my $text_str = "blah\n" x 40;

my $scrolled = $dialog->add( 'Scrolled', 'Pane', -scrollbars => 'osoe'
+, )->pack;

my $dtext = $scrolled->Label( -text => $text_str )->pack;

my $reply = $dialog->Show;

print "$reply\n";

MainLoop;
[download]